Re: compiler bug? -- much better example

[Sam S. <sd...@gn...>]

the comment around defstruct const appears to indicate that const-value
is invalid when horizon is :form.
when I replace const-value with const-value-1 in compiler.lisp and
define
(defun const-value-1 (c)
  (if (eq (const-horizon c) :form)
      (error "invalid use of ~S" c)
      (const-value c)))
I can no longer bootstrap:
*** - invalid use of
#S(CONST :VALUE NIL
   :FORM (CALLS-CODE (GETHASH '%COPY-GENERIC-FUNCTION FUNCTION-CODES))
   :HORIZON :FORM)

could you please clarify what is going on here?

-- 
Sam Steingold (http://www.podval.org/~sds) running w2k
<http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/>
<http://www.mideasttruth.com/> <http://www.honestreporting.com>
(let ((a "(let ((a %c%s%c)) (format a 34 a 34))")) (format a 34 a 34))