Custom Query (1030 matches)

Up-to-date linux, amdfam10, clozure 1.9 amd64 and ia32, both behave identically as far as this message is concerned. I don't know CL well, sorry, I'm just busting nil's irritatingly-anything-but-nihilistic chops.

  Welcome to Clozure Common Lisp Version 1.9-r15757  (LinuxX8664)!
  ? (defun nil () t)
  Lisp Breakpoint
  ? for help
  [15021] Clozure CL kernel debugger: 

  Welcome to Clozure Common Lisp Version 1.9-r15757  (LinuxX8664)!
  ? (defun t () nil)
  T
  ? (t)
  NIL

The former seems too harsh and the latter too lenient. Raising exception seems about right, though. This crap shouldn't work either...

  Welcome to Clozure Common Lisp Version 1.9-r15757  (LinuxX8664)!
  ? (setf (symbol-function nil) (lambda () t))
  #<Anonymous Function #x3020006F846F>
  ? (fboundp nil)
  #<Anonymous Function #x3020006F846F>
  ? (nil)
  > Error: NIL is not of type (OR SYMBOL FUNCTION), and can't be FUNCALLed or APPLYed
  > While executing: CCL::TOPLEVEL-EVAL, in process listener(1).
  > Type :POP to abort, :R for a list of available restarts.
  > Type :? for other options.
  1 > (symbolp nil)
  T
  1 > ;eof
  ? (funcall (symbol-function nil))
  T

But it didn't even do the wrong thing right, heh, (nil) raised an error.

This ticket-reporting thing didn't allow me to specify Version 1.9, only some milestone thing.

Regards, Andy Gaynor, euphoria@…

? (string-equal :a :ba :start2 1)

Error: :start2 argument 0 exceeds :end2 argument 2

It's a simple bug. There are two references to len1 in ccl::%bounded-string-equal that should be len2.

The attached file produces an error in CCL, startup banner:

Welcome to Clozure Common Lisp Version 1.10-dev-r15881M-trunk  (LinuxX8664)!

The error message is as shown below.

% /projects/acl2/lisps/ccl/ccl-15881
Starting 64-bit CCL
Welcome to Clozure Common Lisp Version 1.10-dev-r15881M-trunk  (LinuxX8664)!
? (load "bug.lisp")
> Error: Registers clobbered applying G to (3)
>        save0 sb: NIL, Was: 4
>        save1 sb: #1=(NIL), Was: #1#
>        save2 sb: *SAVE-SOURCE-LOCATIONS*, Was: *SAVE-SOURCE-LOCATIONS*
>        save3 sb: #2=#<CCL::LEXICAL-ENVIRONMENT #x302000496AAD>, Was: #2#
>        
> While executing: (:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM), in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > 

Perhaps this related to CCL's optimized handling of CASE expressions in some situations; for example, changing 2 to 8 in this example makes the problem disappear.

By the way, I tried it on a Mac too, with a slightly older version of CCL and got a similar error. Startup banner there was:

Welcome to Clozure Common Lisp Version 1.10-dev-r15835M-trunk  (DarwinX8664)!