20 |
(defvar *default-default* nil |
(defvar *default-default* nil |
21 |
"Unsupplied optional and keyword arguments get this value defaultly.") |
"Unsupplied optional and keyword arguments get this value defaultly.") |
22 |
|
|
23 |
|
;; Temps that we introduce and might not reference. |
24 |
|
(defvar *ignorable-vars*) |
25 |
|
|
26 |
;;;; Stuff to parse DEFMACRO, MACROLET, DEFINE-SETF-METHOD, and DEFTYPE. |
;;;; Stuff to parse DEFMACRO, MACROLET, DEFINE-SETF-METHOD, and DEFTYPE. |
27 |
|
|
28 |
;;; PARSE-DEFMACRO returns, as multiple-values, a body, possibly a declare |
;;; PARSE-DEFMACRO returns, as multiple-values, a body, possibly a declare |