X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fearly-objdef.lisp;h=389844c5b66719f8002d77be8ca278c7aa5206b7;hb=416152f084604094445a758ff399871132dff2bd;hp=b9a60b64c3c34772dc4ad56d9659f6f928406f1a;hpb=0c58c96998aab7f3179b74ef7462190e59563e2e;p=sbcl.git

diff --git a/src/compiler/generic/early-objdef.lisp b/src/compiler/generic/early-objdef.lisp
index b9a60b6..389844c 100644
--- a/src/compiler/generic/early-objdef.lisp
+++ b/src/compiler/generic/early-objdef.lisp
@@ -21,6 +21,9 @@
 ;;; the main types. These types are represented by the low three bits
 ;;; of the pointer or immediate object.
 (eval-when (:compile-toplevel :load-toplevel :execute)
+  ;; The EVAL-WHEN is necessary (at least for Lispworks), because the
+  ;; second DEFENUM uses the value of OTHER-IMMEDIATE-0-TYPE, which is
+  ;; defined in the first DEFENUM. -- AL 20000216
   (defenum (:suffix -type)
     even-fixnum
     function-pointer