Changeset 6075


Ignore:
Timestamp:
Mar 21, 2007, 10:27:52 AM (12 years ago)
Author:
gb
Message:

SET-TYPE-PREDICATE returns its second arg.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/objc-gf/ccl/level-0/l0-symbol.lisp

    r3839 r6075  
    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.