[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]



(EVAL-WHEN (COMPILE)
   (DEFUN FOO-HOOK (X)
      (COND ((EQ X 'FOO) (NCONS 'FOO-SYM))
            (T NIL)))
   (TRACE FOO-HOOK)
    (PUSH 'FOO-HOOK USERATOMS-HOOKS))

(DEFUN FOO (X) 'FOO)

PRODUCES THE FOLLOWING ERROR IN LISP COMPILER 900:

(COMMENT **ERROR** FOO Atomindex screw in function FOO)
;%%%%%%%% COMPILER ERROR - CALL JONL %%%%%%%%
;BKPT BARF

THE TEST ABOVE WAS PLAYING AROUND WITH USERATOMS-HOOKS,
INTENDING TO EVENTUALLY WRITE A USERATOMS-HOOK THAT PUTS SYMBOLS ON
A CHOICE OF OBARRAYS DEPENDING ON THE FORM OF THE SYMBOL, AND
USEABLE EVEN AT PLACES THAT ARE NOT GETTING EVALUATED (E.G.
IN (DEFUN atom (atom1) ...).