Skip to content
Snippets Groups Projects
  1. Jan 25, 2005
    • rtoy's avatar
      Add type checks (THE) to the data-vector-ref and data-vector-set · fa1d20f2
      rtoy authored
      deftransforms.  This causes a warning to be produced for
      
         (defun foo (f d)
           (declare (type (simple-array single-float (*)) f)
                    (type (simple-array double-float (*)) d))
           (setf (aref f 0) (aref d 0)))
      
      (from Lynn Quam, cmucl-imp 2004-03-30).  Previously, no warning was
      produced and all code including the function return was deleted.  Now
      a warning is produced and the code is not deleted.
      
      This is a workaround.
      fa1d20f2
  2. Oct 04, 2004
  3. Sep 08, 2004
  4. Jun 10, 2004
  5. May 18, 2004
  6. May 17, 2004
  7. May 14, 2004
  8. Apr 13, 2004
  9. Apr 07, 2004
  10. Nov 03, 2003
    • gerd's avatar
      (defun lexical-symbol (symbol &optional prefix) · e3d1deb1
      gerd authored
      	  (let* ((string (symbol-name symbol))
      		 (length (length string)))
      	    (if (or (< length 3)
      		    (not (char= (elt string 0) #\*))
      		    (not (char= (elt string (1- length)) #\*)))
      		(error "Symbol does not follow dynamic conventions.")
      		(if prefix
      		    (intern (cs prefix (subseq string 1 (1- length))))
      		    (intern (subseq string 1 (1- length)))))))
      	 => spurious code deletion note that goes away when the local
      	    variable length is renamed to something else.
      
      	* src/compiler/generic/vm-tran.lisp (subseq, copy-seq) <deftransform>:
      	Use len as local variable name instead of cl:length.
      e3d1deb1
  11. Oct 15, 2002
    • toy's avatar
      Port over SBCL's fix for the Entomotomy bug · 7fbf5590
      toy authored
      array-element-type-treated-as-declaration
      
      wherein the compiler believes type declarations on array elements
      without checking them, e.g.
      
      	(DECLAIM (OPTIMIZE (SAFETY 3) (SPEED 1) (SPACE 1)))
      	(DEFSTRUCT FOO A B)
      	(DEFUN BAR (X)
      	  (DECLARE (TYPE (SIMPLE-ARRAY CONS 1) X))
      	  (WHEN (CONSP (AREF X 0))
      	    (PRINT (AREF X 0))))
      	(BAR (VECTOR (MAKE-FOO :A 11 :B 12)))
      
      prints a structure out.
      
      This patch makes the compiler use the specialized (upgraded) element
      type instead of the declared element type for aref.
      7fbf5590
  12. Aug 08, 2002
  13. May 02, 2002
  14. Jun 05, 2001
  15. Mar 04, 2001
  16. Oct 21, 2000
  17. Sep 14, 2000
  18. Jan 14, 2000
  19. Jan 13, 2000
  20. Sep 06, 1999
  21. Mar 21, 1998
  22. Jan 18, 1997
  23. Oct 31, 1994
  24. Oct 05, 1994
  25. Feb 11, 1994
  26. Aug 19, 1993
  27. May 25, 1993
  28. Feb 26, 1993
  29. Feb 08, 1993
  30. Jan 23, 1993
  31. Jan 15, 1993
  32. Jan 14, 1993
  33. Oct 20, 1992
  34. Nov 16, 1991
  35. Nov 05, 1991
  36. Feb 20, 1991
  37. Jan 14, 1991
  38. Jan 13, 1991
Loading