Custom Query (1030 matches)

Hi,

I have installed the latest ccl:

$ uname -a
Darwin localbox 11.4.2 Darwin Kernel Version 11.4.2: Thu Aug 23 16:25:48 PDT 2012; root:xnu-1699.32.7~1/RELEASE_X86_64 x86_64

$ /usr/local/ccl-1.9/dx86cl64
Welcome to Clozure Common Lisp Version 1.9-r15759  (DarwinX8664)!

And I'm having issues with conditional read time (#+) working incorrectly. You can reproduce the issues trying to load nibbles or ironclad:

nibbles:

$ /usr/local/ccl-1.9/dx86cl64
(quicklWelcome to Clozure Common Lisp Version 1.9-r15759  (DarwinX8664)!
? (quicklisp:quickload "nibbles" :verbose t)
To load "nibbles":
  Load 1 ASDF system:
    nibbles
; Loading "nibbles"
Read error between positions 70 and 91 in /Users/rogersm/quicklisp/dists/quicklisp/software/nibbles-20121125-git/sbcl-opt/nib-tran.lisp.
> Error: There is no package named "SB-C" .
> While executing: CCL::%PARSE-TOKEN, in process listener(1).
> Type :GO to continue, :POP to abort, :R for a list of available restarts.
> If continued: Retry finding package with name "SB-C".


> Type :? for other options.

A possible solution is to apply this patch to nibbles package:

sbcl-opt/nib-tran.lisp
@@ -2,8 +2,9 @@
 
 (cl:in-package :nibbles)
 
-#+sbcl (progn
+#+sbcl
 
+(progn
 (sb-c:deftransform %check-bound ((vector bound offset n-bytes)
 				 ((simple-array (unsigned-byte 8) (*)) index
 				  (and fixnum sb-vm:word)

But nowhere in Hyperspec says a return carriage should be added.

ironclad:

$ /usr/local/ccl-1.9/dx86cl64
(quicklWelcome to Clozure Common Lisp Version 1.9-r15759  (DarwinX8664)!
? (quicklisp:quickload "ironclad" :verbose t)
To load "ironclad":
  Load 1 ASDF system:
    ironclad
; Loading "ironclad"
Read error between positions 70 and 91 in /Users/rogersm/quicklisp/dists/quicklisp/software/nibbles-20121125-git/sbcl-opt/nib-tran.lisp.
> Error: There is no package named "SB-C" .
> While executing: CCL::%PARSE-TOKEN, in process listener(1).
> Type :GO to continue, :POP to abort, :R for a list of available restarts.
> If continued: Retry finding package with name "SB-C".
> Type :? for other options.

Both issues do not occur in:

$ /usr/local/ccl-1.8/dx86cl64
Welcome to Clozure Common Lisp Version 1.8-r15286M  (DarwinX8664)!

cd /tmp
mkdir "a*x+b.rtfd"
touch  "a*x+b.rtfd/foo"
ccl
(directory "/tmp/a\\*x+b.rtfd/*.*")
> Error: File #P"/tmp/a\\\\\\*x+b.rtfd/foo" does not exist.
> While executing: %ADD-DIRECTORY-RESULT, in process listener(1).

Collisions on small consecutive numbers mean hash-tables will be slower than expected, and systematic such collisions probably count as a performance bug.

(EQUAL (SXHASH 12) (SXHASH 13))
;;=> T

gz says it looks like 2n and 2n+1 can have same SXHASH, and gb points at CCL::STRIP-TAG-TO-FIXNUM.