/[cmucl]/src/code/extensions.lisp
ViewVC logotype

Diff of /src/code/extensions.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by ram, Wed Oct 17 03:50:32 1990 UTC revision 1.7 by wlott, Tue Nov 6 14:06:20 1990 UTC
# Line 566  Line 566 
566  (defun cache-hash-eq (x)  (defun cache-hash-eq (x)
567    "Return an EQ hash of X.  The value of this hash for any given object can (of    "Return an EQ hash of X.  The value of this hash for any given object can (of
568    course) change at arbitary times."    course) change at arbitary times."
569    (the fixnum (ash (the fixnum (%primitive make-fixnum x))    (the fixnum (ash (truly-the fixnum (%primitive lisp::make-fixnum x)) -3)))
                    -3)))  
570    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.5