X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Feval.lisp;h=1b63f276fe696b02e0709ce0181a3c044174dcf0;hb=986ce2596822cc0871b609346aaf592348aca596;hp=bca0f12247a1aa5c3003dba74f059ea1e084c9cc;hpb=416152f084604094445a758ff399871132dff2bd;p=sbcl.git

diff --git a/src/code/eval.lisp b/src/code/eval.lisp
index bca0f12..1b63f27 100644
--- a/src/code/eval.lisp
+++ b/src/code/eval.lisp
@@ -12,7 +12,7 @@
 (in-package "SB!IMPL")
 
 ;;; general case of EVAL (except in that it can't handle toplevel
-;;; EVAL-WHEN magic properly): Delegate to the byte compiler.
+;;; EVAL-WHEN magic properly): Delegate to #'COMPILE.
 (defun %eval (expr)
   (funcall (compile (gensym "EVAL-TMPFUN-")
 		    `(lambda ()
@@ -121,14 +121,14 @@
 	   ((progn)
 	    (eval-progn-body (rest exp)))
 	   ((eval-when)
-	    ;; FIXME: DESTRUCTURING-BIND returns
-	    ;; DEFMACRO-LL-ARG-COUNT-ERROR instead of PROGRAM-ERROR
-	    ;; when there's something wrong with the syntax here (e.g.
-	    ;; missing SITUATIONS). This could be fixed by
-	    ;; hand-crafting clauses to catch and report each
-	    ;; possibility, but it would probably be cleaner to write
-	    ;; a new macro DESTRUCTURING-BIND-PROGRAM-SYNTAX which
-	    ;; does DESTRUCTURING-BIND and promotes any mismatch to
+	    ;; FIXME: DESTRUCTURING-BIND returns ARG-COUNT-ERROR
+	    ;; instead of PROGRAM-ERROR when there's something wrong
+	    ;; with the syntax here (e.g. missing SITUATIONS). This
+	    ;; could be fixed by hand-crafting clauses to catch and
+	    ;; report each possibility, but it would probably be
+	    ;; cleaner to write a new macro
+	    ;; DESTRUCTURING-BIND-PROGRAM-SYNTAX which does
+	    ;; DESTRUCTURING-BIND and promotes any mismatch to
 	    ;; PROGRAM-ERROR, then to use it here and in (probably
 	    ;; dozens of) other places where the same problem arises.
 	    (destructuring-bind (eval-when situations &rest body) exp
@@ -164,9 +164,9 @@
   might have been enclosed in some non-null lexical environment, and
   NAME is some name (for debugging only) or NIL if there is no name."
     (declare (type function fun))
-    (let* ((fun (%function-self fun))
-	   (name (%function-name fun))
-	   (code (sb!di::function-code-header fun))
+    (let* ((fun (%simple-fun-self fun))
+	   (name (%simple-fun-name fun))
+	   (code (sb!di::fun-code-header fun))
 	   (info (sb!kernel:%code-debug-info code)))
       (if info
         (let ((source (first (sb!c::compiled-debug-info-source info))))
@@ -177,7 +177,7 @@
                 ((stringp name)
                  (values nil t name))
                 (t
-                 (let ((exp (info :function :inline-expansion name)))
+                 (let ((exp (fun-name-inline-expansion name)))
                    (if exp
                        (values exp nil name)
                        (values nil t name))))))