Custom Query (1030 matches)

Create file ~/test.lisp:

(defun junk (x  y)
  (list x y))

Welcome to Clozure Common Lisp Version 1.3-dev-r11972M-trunk  (DarwinX8632)!
? (load "/Users/rme/test")
#P"/Users/rme/test.lisp"
? (find-definition-sources 'junk)
(((#<FUNCTION-DEFINITION-TYPE FUNCTION #x87909FE> . JUNK) #<SOURCE-NOTE "home:test..newest":0-32 NIL>))

Note incorrect pathname in source-note. This doesn't happen when loading with (load "home:test").

testing attachments

In ccl 1.6 (32-bit) we have

1 > (atanh #c(-2d0 -1d-20))
#C(-0.5493061443340549D0 -1.5707963267948966D0)

but

1 > (atanh #c(-2d0 -0d0))
#C(-0.5493061443340549D0 1.5707963267948966D0)

The spec says that for on the negative real axis less than -1, atanh is continuous with Quadrant III. Since (float-sign -0d0) -> -1d0, both answers should have the same signs and the imaginary part should be negative.