Skip to content
Snippets Groups Projects
  1. Sep 26, 2003
  2. Sep 25, 2003
  3. Sep 24, 2003
    • toy's avatar
      Convert another make-member-type to use specifier-type so that member · 7359b31b
      toy authored
      types of numbers are correctly canonicalized for the type system.
      7359b31b
    • toy's avatar
      Fix bug where the compiler was not correctly deriving the result type · 7c427c71
      toy authored
      of
      
      	(defun foo (x)
      	  (declare (type (double-float (0d0)) x))
      	  (* x (- (log (random 1d0)))))
      
      ONE-ARG-DERIVE-TYPE and TWO-ARG-DERIVE-TYPE should not create member
      types directly, but should use specifier-type to create them, which
      will canonicalize them appropriately for the type system.  The type
      system expects member types to be converted to unions of singleton
      number types, except in certain cases, like signed zeroes.
      
      Based on a patch from Christophe Rhodes, sent to cmucl-imp.
      7c427c71
    • gerd's avatar
      (compile nil · cb113a53
      gerd authored
      	  '(lambda (a b c)
                   (block b6
                          (logeqv (rem c -6758)
                                  (rem b (max 44 (return-from b6 a)))))))
      	 => error nil is not of type c::node
      
      	* src/compiler/macros.lisp (do-nodes-backwards): Stop at unused
      	continuations.  Reported by Paul Dietz.  Ported from SBCL/Alexey
      	Dejneka.
      cb113a53
  4. Sep 22, 2003
  5. Sep 18, 2003
  6. Sep 16, 2003
  7. Sep 15, 2003
  8. Sep 14, 2003
  9. Sep 13, 2003
    • gerd's avatar
      * src/lisp/alloc.c (alloc) [GENCGC]: Define as alloc_pseudo_atomic. · e31f8138
      gerd authored
      	* src/lisp/gencgc.c (set_pseudo_atomic_atomic)
      	(clr_pseudo_atomic_atomic) [i386]: Reverse the values assigned
      	to PSEUDO_ATOMIC_ATOMIC, remove semicolons.
      	(alloc_pseudo_atomic): New function wrapping alloc in a
      	pseudo-atomic section.
      	(alloc): Remove code for the non-PA case, rewrite the rest
      	to use a loop instead of goto.
      e31f8138
  10. Sep 12, 2003
  11. Sep 11, 2003
  12. Sep 10, 2003
  13. Sep 09, 2003
  14. Sep 08, 2003
  15. Sep 07, 2003
    • gerd's avatar
      (defun foo (x) (float x 1f0)) · 18894485
      gerd authored
      	(compile 'foo)
      	(foo 0d0)
      	 => 0d0
      
      	Found by Paul Dietz with sqrt on complex numbers.
      
      	* src/compiler/float-tran.lisp (float) <deftransform>:
      	Test with single-float-p instead of floatp.
      18894485
  16. Sep 06, 2003
Loading