comparison lisp/subr.el @ 25436:d24cf1a4dd34

(push, pop): New macros.

25435:5ff4e59e5f02

It may also be omitted.
BODY should be a list of lisp expressions."
  ;; Note that this definition should not use backquotes; subr.el should not
  ;; depend on backquote.el.
  (list 'function (cons 'lambda cdr)))

(defmacro when (cond &rest body)
  "(when COND BODY...): if COND yields non-nil, do BODY, else return nil."
  (list 'if cond (cons 'progn body)))
(put 'when 'lisp-indent-function 1)

25436:d24cf1a4dd34

It may also be omitted.
BODY should be a list of lisp expressions."
  ;; Note that this definition should not use backquotes; subr.el should not
  ;; depend on backquote.el.
  (list 'function (cons 'lambda cdr)))

(defmacro push (value listname)
  "Add VALUE to the list which is the value of LISTNAME.
This is equivalent to (setq LISTNAME (cons VALUE LISTNAME)).
LISTNAME must be a symbol."
  (list 'setq list
	(list 'cons value list)))

(defmacro pop (listname)
  "Return the first element of LISTNAME's value, and remove it from the list.
LISTNAME must be a symbol whose value is a list.
If the value is nil, `pop' returns nil but does not actually
change the list."
  (list 'prog1 (list 'car listname)
	(list 'setq listname (list 'cdr listname))))

(defmacro when (cond &rest body)
  "(when COND BODY...): if COND yields non-nil, do BODY, else return nil."
  (list 'if cond (cons 'progn body)))
(put 'when 'lisp-indent-function 1)