X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffdefinition.lisp;h=78a574af671355960069e07284bda8dcc2d13eb9;hb=6c4d4d984b1af6b2a73568cec3ab9c8795cff2da;hp=1864e5c410f1992344306c144fc1ea56dfb215d7;hpb=104ee7ee303efa16e415f5e75df635ac54dba733;p=sbcl.git

diff --git a/src/code/fdefinition.lisp b/src/code/fdefinition.lisp
index 1864e5c..78a574a 100644
--- a/src/code/fdefinition.lisp
+++ b/src/code/fdefinition.lisp
@@ -54,12 +54,7 @@
 ;;; CREATE is non-NIL, create a new (unbound) one.
 (defun fdefinition-object (name create)
   (declare (values (or fdefn null)))
-  (unless (legal-fun-name-p name)
-    (error 'simple-type-error
-	   :datum name
-	   :expected-type '(or symbol list)
-	   :format-control "invalid function name: ~S"
-	   :format-arguments (list name)))
+  (legal-fun-name-or-type-error name)
   (let ((fdefn (info :function :definition name)))
     (if (and (null fdefn) create)
 	(setf (info :function :definition name) (make-fdefn name))
@@ -224,10 +219,10 @@
    This is SETF'able."
   (let ((fun (%coerce-name-to-fun name)))
     (loop
-      (let ((encap-info (encapsulation-info fun)))
-	(if encap-info
-	    (setf fun (encapsulation-info-definition encap-info))
-	    (return fun))))))
+     (let ((encap-info (encapsulation-info fun)))
+       (if encap-info
+	   (setf fun (encapsulation-info-definition encap-info))
+	   (return fun))))))
 
 (defvar *setf-fdefinition-hook* nil
   #!+sb-doc