X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fdefboot.lisp;h=e2bd2c25e4afd5d0f3843fce791435ae78791856;hb=f538b5388411e980376c1b4e6ca03a1f9c0d23d7;hp=6e60eaf60a5fd1e289ddfd3c7f2f5f5c7c50e6b7;hpb=09d7974601df2aaaa820ca576026b9b4f03e6ab1;p=sbcl.git

diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp
index 6e60eaf..e2bd2c2 100644
--- a/src/code/defboot.lisp
+++ b/src/code/defboot.lisp
@@ -213,10 +213,7 @@
   #+nil (setf (%fun-name def) name)
 
   (when doc
-    ;; FIXME: This should use shared SETF-name-parsing logic.
-    (if (and (consp name) (eq (first name) 'setf))
-	(setf (fdocumentation (second name) 'setf) doc)
-	(setf (fdocumentation (the symbol name) 'function) doc)))
+    (setf (fdocumentation name 'function) doc))
   name)
 
 ;;;; DEFVAR and DEFPARAMETER
@@ -346,3 +343,13 @@
 (defmacro-mundanely lambda (&whole whole args &body body)
   (declare (ignore args body))
   `#',whole)
+
+(defmacro-mundanely named-lambda (&whole whole name args &body body)
+  (declare (ignore name args body))
+  `#',whole)
+
+(defmacro-mundanely lambda-with-lexenv (&whole whole
+					declarations macros symbol-macros
+					&body body)
+  (declare (ignore declarations macros symbol-macros body))
+  `#',whole)