Custom Query (1030 matches)

I get an error when inspecting tcp sockets:

Welcome to Clozure Common Lisp Version 1.3-dev-r11532M-trunk  (LinuxX8632)!
? (ccl::make-tcp-socket :remote-host "www.google.com" :remote-port 80)
#<BASIC-TCP-STREAM ISO-8859-1 (SOCKET/4) #x149DD8EE>
? (inspect *)
[0]     #<BASIC-TCP-STREAM ISO-8859-1 (SOCKET/4) #x149DD8EE>
[1]     Type: CCL::BASIC-TCP-STREAM
[2]     Class: #<BUILT-IN-CLASS CCL::BASIC-TCP-STREAM>
> Error: Invalid reference to #<BASIC-TCP-STREAM ISO-8859-1 (SOCKET/4) #x149DD8EE> at index 0.
> While executing: #<CCL::STANDARD-KERNEL-METHOD INSPECTOR::LINE-N (INSPECTOR::UVECTOR-INSPECTOR
                                                                    T)>, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > 

I'm not a language lawyer but it doesn't seem right that #_ is in the standard readtable:

Welcome to Clozure Common Lisp Version 1.4-dev-r12409M-trunk  (Linuxx8632)!
? (setq *readtable* (copy-readtable nil))
#<readtable #x14AD5676>
? (#_tmpnam (ccl:%null-ptr))
#<A Foreign Pointer #xB7F7A08C>
?

Something seems fishy when inlining TRUNCATE:

Welcome to Clozure Common Lisp Version 1.5-dev-r13524M-trunk  (LinuxX8632)!
? (defun foo (x y) (declare (type fixnum x y)) (truncate x y))
FOO
? (foo most-negative-fixnum -1)
-536870912
0
? (truncate most-negative-fixnum -1)
536870912
0
?