Changeset 10015


Ignore:
Timestamp:
Jul 12, 2008, 7:12:09 PM (11 years ago)
Author:
gz
Message:

Propagate r10012 and r10013 from trunk

Location:
branches/working-0711/ccl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-0/l0-float.lisp

    r5029 r10015  
    703703           (i (imagpart x)))
    704704      (complex (* (cos r) (cosh i))
    705                (* (sin r) (sinh i))))
     705               (- (* (sin r) (sinh i)))))
    706706    (if (typep x 'double-float)
    707707      (%double-float-cos! x (%make-dfloat))
  • branches/working-0711/ccl/xdump/hashenv.lisp

    r9930 r10015  
    3636; A key of $undefined denotes an empty or deleted value
    3737; The value will be $undefined for empty values, or NIL for deleted values.
     38;; If you change anything here, also update the kernel def in XXX-constantsNN.h
    3839(def-accessors () %svref
    3940  nhash.vector.link                     ; GC link for weak vectors
Note: See TracChangeset for help on using the changeset viewer.