2200daeea4
TL;DR: - Require cl-macs.el for modules using CL-style macros like `cl-defun` - Require struct.el for call to `struct-set!`
58 lines
1.6 KiB
EmacsLisp
58 lines
1.6 KiB
EmacsLisp
;;; dotted.el --- Working with dotted pairs in Elisp -*- lexical-binding: t -*-
|
|
|
|
;; Author: William Carroll <wpcarro@gmail.com>
|
|
;; Version: 0.0.1
|
|
;; URL: https://git.wpcarro.dev/wpcarro/briefcase
|
|
;; Package-Requires: ((emacs "24.3"))
|
|
|
|
;;; Commentary:
|
|
;; Part of my primitives library extensions in Elisp. Contrast my primitives
|
|
;; with the wrapper extensions that I provide, which expose immutable variants
|
|
;; of data structures like an list, alist, tuple, as well as quasi-typeclasses
|
|
;; like sequence, etc.
|
|
|
|
;;; Code:
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Dependencies
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(require 'prelude)
|
|
(require 'macros)
|
|
(require 'cl-macs)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Library
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(cl-defun dotted-new (&optional a b)
|
|
"Create a new dotted pair (i.e. cons cell)."
|
|
(cons a b))
|
|
|
|
(defun dotted-instance? (x)
|
|
"Return t if X is a dotted pair."
|
|
(let ((b (cdr x)))
|
|
(and b (atom b))))
|
|
|
|
(defun dotted-first (x)
|
|
"Return the first element of X."
|
|
(car x))
|
|
|
|
(defun dotted-second (x)
|
|
"Return the second element of X."
|
|
(cdr x))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Tests
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(progn
|
|
(prelude-assert
|
|
(equal '(fname . "Bob") (dotted-new 'fname "Bob")))
|
|
(prelude-assert
|
|
(dotted-instance? '(one . two)))
|
|
(prelude-refute
|
|
(dotted-instance? '(1 2 3))))
|
|
|
|
(provide 'dotted)
|
|
;;; dotted.el ends here
|