projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.98:
[sbcl.git]
/
src
/
compiler
/
early-c.lisp
diff --git
a/src/compiler/early-c.lisp
b/src/compiler/early-c.lisp
index
430918b
..
c0dba38
100644
(file)
--- a/
src/compiler/early-c.lisp
+++ b/
src/compiler/early-c.lisp
@@
-30,11
+30,18
@@
"The exclusive upper bound on the number of multiple VALUES that you can
return.")
"The exclusive upper bound on the number of multiple VALUES that you can
return.")
-;;; FIXME: Shouldn't SB!C::&MORE be in this list?
(defconstant-eqx sb!xc:lambda-list-keywords
(defconstant-eqx sb!xc:lambda-list-keywords
- '(&optional &rest &key &aux &body &whole &allow-other-keys &environment)
- #!+sb-doc
+ '(&allow-other-keys
+ &aux
+ &body
+ &environment
+ &key
+ &more
+ &optional
+ &rest
+ &whole)
#'equal
#'equal
+ #!+sb-doc
"symbols which are magical in a lambda list")
\f
;;;; cross-compiler-only versions of CL special variables, so that we
"symbols which are magical in a lambda list")
\f
;;;; cross-compiler-only versions of CL special variables, so that we
@@
-118,7
+125,7
@@
note-name-defined))
(defun note-name-defined (name kind)
;; We do this BOUNDP check because this function can be called when
note-name-defined))
(defun note-name-defined (name kind)
;; We do this BOUNDP check because this function can be called when
- ;; not in a compilation unit (as when loading top-level forms).
+ ;; not in a compilation unit (as when loading top level forms).
(when (boundp '*undefined-warnings*)
(setq *undefined-warnings*
(delete-if (lambda (x)
(when (boundp '*undefined-warnings*)
(setq *undefined-warnings*
(delete-if (lambda (x)