[Ecls-list] compiler bug with SHIFTF

[Eric Marsden]

>>>>> "jg" == Juan Jose Garcia-Ripoll <juanjose.garciaripoll at googlemail.com> writes:

  jg> Thanks, I have fixed this now.

  Here is another (possibly related) bug in the compiler's handling of
  SHIFTF. 

,----
| ECL (Embeddable Common-Lisp) 8.10.0 (CVS 2008-07-12 18:54)
| Copyright (C) 1984 Taiichi Yuasa and Masami Hagiya
| Copyright (C) 1993 Giuseppe Attardi
| Copyright (C) 2000 Juan J. Garcia-Ripoll
| ECL is free software, and you are welcome to redistribute it
| under certain conditions; see file 'Copyright' for details.
| Type :h for Help.  Top level.
| > (defun bar (x) (typep (shiftf x 1) '(real 10 20)))
| BAR
| > (bar 5)
| NIL
| > (bar 15)
| T
| > (compile 'bar)
| ;;; OPTIMIZE levels: Safety=2, Space=0, Speed=3, Debug=0
| ;;; End of Pass 1.
| ;;; Note: Replacing variable G128 by its value
| ;;; Note: Invoking external command:
| ;;;   gcc  -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -g -O2 -fPIC  -Dlinux -O "-I/usr/local/include/" -w -c "/home/emarsden/ECL001AXdxA6.c" -o "/home/emarsden/ECL001AXdxA6.o"
| ;;; Note: Invoking external command:
| ;;;   gcc -o "/home/emarsden/ECL001AXdxA6.fas" -L"/usr/local/lib/" "/home/emarsden/ECL001AXdxA6.o"  -shared    -lecl -ldl  -lm  
| BAR
| NIL
| NIL
| > (bar 5)
| T
`----

-- 
Eric Marsden