X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Falpha%2Fvm.lisp;h=c8f77dd765b8f6273db98ad2c6d475a3bf167f28;hb=b05ccdd91520249de6b465e226d3708089e541dc;hp=3dd28ab959170826c53e44aa80b184da303b968c;hpb=e0814eee6f6dea52db010b45a330100f2fe65832;p=sbcl.git

diff --git a/src/compiler/alpha/vm.lisp b/src/compiler/alpha/vm.lisp
index 3dd28ab..c8f77dd 100644
--- a/src/compiler/alpha/vm.lisp
+++ b/src/compiler/alpha/vm.lisp
@@ -93,10 +93,8 @@
 
 ;;; a handy macro so we don't have to keep changing all the numbers
 ;;; whenever we insert a new storage class.
-;;;
-;;; FIXME: This macro is not needed in the runtime target.
 
-(defmacro define-storage-classes (&rest classes)
+(defmacro !define-storage-classes (&rest classes)
   (do ((forms (list 'progn)
 	      (let* ((class (car classes))
 		     (sc-name (car class))
@@ -124,9 +122,9 @@
 ;;; and seems to be working so far    -dan
 (defconstant sb!vm::kludge-nondeterministic-catch-block-size 7)
 
-(define-storage-classes
+(!define-storage-classes
 
-  ;; Non-immediate contstants in the constant pool
+  ;; non-immediate constants in the constant pool
   (constant constant)
 
   ;; ZERO and NULL are in registers.