X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Finfo-functions.lisp;h=b9dfd7137a4d1932bd1bc4ff7f4a2cc623255fea;hb=d75b4eb603f1e9e366997c8e378fe0ae0d79b5d9;hp=9e41aeb9c6396473946cb16550c52eb4fb1c6497;hpb=6f57ff9d738e1c5ecfb6b085b31aca083a83284f;p=sbcl.git

diff --git a/src/compiler/info-functions.lisp b/src/compiler/info-functions.lisp
index 9e41aeb..b9dfd71 100644
--- a/src/compiler/info-functions.lisp
+++ b/src/compiler/info-functions.lisp
@@ -49,7 +49,7 @@
       (:function) ; happy case
       ((nil)) ; another happy case
       (:macro ; maybe-not-so-good case
-       (compiler-style-warning "~S was previously defined as a macro." name)
+       (compiler-style-warn "~S was previously defined as a macro." name)
        (setf (info :function :where-from name) :assumed)
        (clear-info :function :macro-function name))))
 
@@ -60,12 +60,12 @@
   ;; in EVAL-WHEN (:COMPILE) inside something like DEFSTRUCT, in which
   ;; case it's reasonable style. Either way, NAME is no longer a free
   ;; function.)
-  (when (boundp '*free-functions*) ; when compiling
-    (remhash name *free-functions*))
+  (when (boundp '*free-funs*) ; when compiling
+    (remhash name *free-funs*))
 
   ;; recording the ordinary case
   (setf (info :function :kind name) :function)
-  (note-if-setf-function-and-macro name)
+  (note-if-setf-fun-and-macro name)
 
   (values))
 
@@ -75,11 +75,11 @@
 ;;; warning. Due to the weak semantics of the (SETF FUNCTION) name, we
 ;;; can't assume that they aren't just naming a function (SETF FOO)
 ;;; for the heck of it. NAME is already known to be well-formed.
-(defun note-if-setf-function-and-macro (name)
+(defun note-if-setf-fun-and-macro (name)
   (when (consp name)
     (when (or (info :setf :inverse name)
 	      (info :setf :expander name))
-      (compiler-style-warning
+      (compiler-style-warn
        "defining as a SETF function a name that already has a SETF macro:~
        ~%  ~S"
        name)))
@@ -151,7 +151,7 @@
    else returns NIL. If ENV is unspecified or NIL, use the global
    environment only."
   (declare (symbol symbol))
-  (let* ((fenv (when env (sb!c::lexenv-functions env)))
+  (let* ((fenv (when env (sb!c::lexenv-funs env)))
 	 (local-def (cdr (assoc symbol fenv))))
     (cond (local-def
 	   (if (and (consp local-def) (eq (car local-def) 'MACRO))
@@ -194,7 +194,7 @@
    definition, or declared NOTINLINE, NIL is returned. Can be
    set with SETF."
   (let ((found (and env
-		    (cdr (assoc name (sb!c::lexenv-functions env)
+		    (cdr (assoc name (sb!c::lexenv-funs env)
 				:test #'equal)))))
     (unless (eq (cond ((sb!c::defined-fun-p found)
 		       (sb!c::defined-fun-inlinep found))
@@ -240,7 +240,7 @@
 	 (symbol (values (info :variable :documentation x)))))
       (function
        (cond ((functionp x)
-	      (function-doc x))
+	      (%fun-doc x))
 	     ((legal-fun-name-p x)
 	      ;; FIXME: Is it really right to make
 	      ;; (DOCUMENTATION '(SETF FOO) 'FUNCTION) equivalent to
@@ -259,7 +259,7 @@
       (setf (info :setf :documentation x))
       ((t)
        (typecase x
-	 (function (function-doc x))
+	 (function (%fun-doc x))
 	 (package (package-doc-string x))
 	 (structure-class (values (info :type :documentation (class-name x))))
 	 (symbol (try-cmucl-random-doc x doc-type))))