X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fmacros.lisp;h=e11812d84d1c21f72e68f986772ebe154dd715f0;hb=2abf77f6c4c559a3e5b7fc351a4743305381feb6;hp=8fb91253ab236ab3ac94a53893372338bcdbddf4;hpb=b1de52969f584c63d43fb35da4a8a6a4e0e619f0;p=sbcl.git

diff --git a/src/code/macros.lisp b/src/code/macros.lisp
index 8fb9125..e11812d 100644
--- a/src/code/macros.lisp
+++ b/src/code/macros.lisp
@@ -100,9 +100,6 @@
   `(eval-when (:compile-toplevel :load-toplevel :execute)
      (sb!c::%defconstant ',name ,value ',documentation)))
 
-;;; (to avoid "undefined function" warnings when cross-compiling)
-(sb!xc:proclaim '(ftype function sb!c::%defconstant))
-
 ;;; the guts of DEFCONSTANT
 (defun sb!c::%defconstant (name value doc)
   (/show "doing %DEFCONSTANT" name value doc)
@@ -259,7 +256,7 @@
 	 (cond
 	  ,@(nreverse clauses)
 	  ,@(if errorp
-		`((t (error 'sb!conditions::case-failure
+		`((t (error 'case-failure
 			    :name ',name
 			    :datum ,keyform-value
 			    :expected-type ',expected-type