Changeset 6183


Ignore:
Timestamp:
Apr 8, 2007, 3:02:10 AM (13 years ago)
Author:
gb
Message:

SET-TYPE-PREDICATE returns the "functional", not random symbol guts.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-0/l0-symbol.lisp

    r3839 r6183  
    9696      (%cdr pp))))
    9797
    98 
    9998(defun set-type-predicate (name function)
    10099  (let* ((bits (%symbol-bits name))
     
    106105      (progn
    107106        (%symbol-bits name (the fixnum (bitset $sym_vbit_typeppred bits)))
    108         (setf (%svref symvec target::symbol.package-predicate-cell) (cons spp function))))))
     107        (setf (%svref symvec target::symbol.package-predicate-cell) (cons spp function))))
     108    function))
    109109
    110110(defun symbol-value (sym)
Note: See TracChangeset for help on using the changeset viewer.