Custom Query (1030 matches)

I'm using "Version 1.4-r13122 (WindowsX8632)", on a windows xp professional box (with Service pack 3)

while working on a project I found that ccl does not understand the result-form of the dolist macro.

double checking with CLHS to insure i didn't make fool of myself. ​http://www.ai.mit.edu/projects/iiip/doc/CommonLISP/HyperSpec/Body/mac_dolist.html

and then taking one of the examples from the above page:

(dolist (temp-one '(1 2 3 4) temp-two) (push temp-one temp-two))

gave me the following in ccl:

Welcome to Clozure Common Lisp Version 1.4-r13122  (WindowsX8632)!
?  (dolist (temp-one '(1 2 3 4) temp-two) (push temp-one temp-two))
;Compiler warnings :
;   In an anonymous lambda form: Undeclared free variable TEMP-TWO (3 references
)
> Error: Unbound variable: TEMP-TWO
> While executing: #<Anonymous Function #x8CB4D7E>, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 >

rather than giving me => (4 3 2 1)

SLSIA. Here's an example:

Welcome to Clozure Common Lisp Version 1.5-dev-r13442M-trunk  (DarwinX8664)!
? (#/title (car (gui::windows)))
#<NS-MUTABLE-STRING "Listener" (#x1D03B0)>
? (set-macro-character #\e (lambda (stream char) char) t)
;Compiler warnings :
;   In an anonymous lambda form at position 25: Unused lexical variable STREAM
T
? (#/title (car (gui::windows)))
> Error: Undefined function NEXTSTEP-FUNCTIONS:|titl| called with arguments (#\e #<HEMLOCK-LISTENER-FRAME <HemlockListenerFrame: 0x1cd640> (#x1CD640)>) .

Here's the fix:

(set-dispatch-macro-character #\# #\/
  (let ((rt (copy-readtable nil)))
    (lambda (stream subchar numarg)
      (declare (ignorable subchar numarg))
      (let* ((token (make-array 16 :element-type 'character :fill-pointer 0 :adjustable t))
             (attrtab (rdtab.ttab rt)))
        (when (peek-char t stream nil nil)
          (loop
            (multiple-value-bind (char attr)
                                 (%next-char-and-attr stream attrtab)
              (unless (eql attr $cht_cnst)
                (when char (unread-char char stream))
                (return))
              (vector-push-extend char token))))
        (unless *read-suppress*
          (unless (> (length token) 0)
            (signal-reader-error stream "Invalid token after #/."))
          (check-objc-message-name token)
          (intern token "NSFUN"))))))

NOTE: This issue is related to the issue of reader macros affecting the syntax of uninterned symbols, which generate some controversy on the mailing list. In this case, the syntax of objective-C function names is not governed by the ANSI standard, so the controversy is moot.

I get the following return values from INTEGER-DECODE-FLOAT. (Version 1.4-r13122 (WindowsX8632))

? (integer-decode-float 0s0)
0
-150
1
? (integer-decode-float 0f0)
0
-150
1
? (integer-decode-float 0d0)
0
-1074
1
? (integer-decode-float 0l0)
0
-1074
1

In contrast:

? (decode-float 0s0)
0.0
0
1.0
? (decode-float 0f0)
0.0
0
1.0
? (decode-float 0d0)
0.0D0
0
1.0D0
? (decode-float 0l0)
0.0D0
0
1.0D0

CLHS states that INTEGER-DECODE-FLOAT returns "the same last two values that are returned by decode-float". Observed behavior seems otherwise.