Custom Query (1030 matches)

? #'(lambda (x y) (ccl::%new-ptr x y)) 
> Error: Compiler bug or inconsistency: 
>        x862-form ? (100 (24614 #) (24614 #)) 
> While executing: CCL::COMPILER-BUG, in process listener(1). 
> Type :POP to abort, :R for a list of available restarts. 
> Type :? for other options. 
1 >  

Reported in email:

I know this is an internal function, but I don't see any exported equivalent
functionality.  In any case, it appears the :start keyword argument is doing
something wrong.

Welcome to Clozure Common Lisp Version 1.2-r7902S  (LinuxX8664)!
? (ccl::decode-string-from-octets  (make-array 5 :element-type
'(unsigned-byte 8) :initial-element 65))
"AAAAA"
5
? (ccl::decode-string-from-octets  (make-array 5 :element-type
'(unsigned-byte 8) :initial-element 65) :start 1)
"AA"
3
? (ccl::decode-string-from-octets  (make-array 5 :element-type
'(unsigned-byte 8) :initial-element 65) :start 0)
"AAAAA"
5
? (ccl::decode-string-from-octets  (make-array 5 :element-type
'(unsigned-byte 8) :initial-element 65) :start 2)
""
1
? (ccl::decode-string-from-octets  (make-array 5 :element-type
'(unsigned-byte 8) :initial-element 65) :start 1)
"AA"
3


In this case it's skipping some extra octets.  But that's not the worst of
it.  "In the wild" I observed this function adding garbage to the end of the
string that is returned, if start > 0.

When entering an invalid symbol like "..." into the REPL, an internal error resulting from a typo is signalled.

Fix:

Index: l1-reader.lisp
===================================================================
--- l1-reader.lisp	(revision 8515)
+++ l1-reader.lisp	(working copy)
@@ -2407,7 +2407,7 @@
             (if (= len 1)
               (or dot-ok
                   (signal-reader-error stream "Dot context error in ~s." (%string-from-token tb)))
-              (signal-reader-error stream "Illegal symbol syntax in ~s. (%string-from-token tb)"))
+              (signal-reader-error stream "Illegal symbol syntax in ~s." (%string-from-token tb)))
             ;; Something other than a buffer full of dots.  Thank god.
             (let* ((num (if (null escapes)
                             (handler-case