Custom Query (1030 matches)

There seems to be some odd behavior in RESTART-CASE when a restart clause has both test and interactive expressions.

In the attached file, the only difference between TEST-BROKEN-RESTART and TEST-WORKING-RESTART is that the latter’s restart clause has no test expression.

./dx86cl64 --no-init
Welcome to Clozure Common Lisp Version 1.9-dev-r15272M-trunk  (DarwinX8664)!
? (load "~/broken-restart.lisp")
#P"/Users/greg/broken-restart.lisp"

This case behaves correctly – the test fails, so the restart is not offered.

? (test-broken-restart 'non-restartable-error)
> Error: Condition #<NON-RESTARTABLE-ERROR #x30200072ED8D>
1 > :r
>   Type (:C <n>) to invoke one of the following restarts:
0. Return to break level 1.
1. #<RESTART ABORT-BREAK #x7EBECD>
2. Return to toplevel.
3. #<RESTART ABORT-BREAK #x7EC5AD>
4. Reset this thread
5. Kill this thread
1 > :pop

This case fails – the test passes and the restart is offered, but when the restart is selected, rather than calling the interactive expression, some anonymous restart is used, and another error is signaled.

? (test-broken-restart 'restartable-error)
> Error: Condition #<RESTARTABLE-ERROR #x302000726B1D>
1 > :r
>   Type (:C <n>) to invoke one of the following restarts:
2. #<RESTART BROKEN #x7EC16D>
1 > :c 2
Invoking restart: NIL
432345564230164480 is not of type (OR SYMBOL FUNCTION), and can't be FUNCALLed or APPLYed
1 > :pop

This is the same as the previous case, but with the test expression removed. This time it works – the restart is selected, then it interactively asks for a value.

? (test-working-restart 'restartable-error)
> Error: Condition #<RESTARTABLE-ERROR #x302000721A6D>
1 > :r
>   Type (:C <n>) to invoke one of the following restarts:
2. #<RESTART WORKING #x7EC16D>
1 > :c 2
Invoking restart: #<RESTART WORKING #x7EC16D>
Enter a value: 5
5
? 

There's no NULL symbol defined by the standard.

ccl -n -e '(progn (format t "~a" (symbol-package (find-symbol "NULL"))) (quit))'

=> #<Package "COMMON-LISP">

% uname -a
Darwin galatea.lan.informatimago.com 11.3.0 Darwin Kernel Version 11.3.0: Thu Jan 12 18:48:32 PST 2012; root:xnu-1699.24.23~1/RELEASE_I386 i386
% arch
i386
% hostinfo
Mach kernel version:
	 Darwin Kernel Version 11.3.0: Thu Jan 12 18:48:32 PST 2012; root:xnu-1699.24.23~1/RELEASE_I386
Kernel configured for up to 2 processors.
2 processors are physically available.
2 processors are logically available.
Processor type: i486 (Intel 80486)
Processors active: 0 1
Primary memory available: 2.00 gigabytes
Default processor set: 132 tasks, 554 threads, 2 processors
Load average: 2.19, Mach factor: 0.58

After having recompiled 1.8 with:

	ccl --no-init --batch --eval '(ccl:rebuild-ccl :full t)' --eval '(ccl:quit)'

M-x slime RET fails as follow. But then if I M-x slime again, it boots correctly and ,restart three more times are ok.

Recompiling again as above, and M-x slime RET works. It might be a one-off bug.

; $ ( hostname --fqdn 2>/dev/null || hostname --long 2>/dev/null || hostname ) > /Users/pjb/hostname-D3443191.txt
To load "alexandria":
  Load 1 ASDF system:
    alexandria
; Loading "alexandria"

To load "com.informatimago.common-lisp":
  Load 1 ASDF system:
    com.informatimago.common-lisp
; Loading "com.informatimago.common-lisp"
.
To load "com.informatimago.clmisc":
  Load 1 ASDF system:
    com.informatimago.clmisc
; Loading "com.informatimago.clmisc"

Welcome to Clozure Common Lisp Version 1.8  (DarwinX8632)!
? ;Loading #P"/home/pjb/quicklisp/dists/quicklisp/software/slime-20111105-cvs/swank-loader.lisp"...
;Loading #P"/Users/pjb/.slime/fasl/2011-11-03/clozure-version_1.8__(darwinx8632)-darwin-x86/swank-backend.dx32fsl"...
;Loading #P"/Users/pjb/.slime/fasl/2011-11-03/clozure-version_1.8__(darwinx8632)-darwin-x86/metering.dx32fsl"...
;Loading #P"/Users/pjb/.slime/fasl/2011-11-03/clozure-version_1.8__(darwinx8632)-darwin-x86/swank-ccl.dx32fsl"...
;Loading #P"/Users/pjb/.slime/fasl/2011-11-03/clozure-version_1.8__(darwinx8632)-darwin-x86/swank-gray.dx32fsl"...
;Loading #P"/Users/pjb/.slime/fasl/2011-11-03/clozure-version_1.8__(darwinx8632)-darwin-x86/swank-match.dx32fsl"...
;Loading #P"/Users/pjb/.slime/fasl/2011-11-03/clozure-version_1.8__(darwinx8632)-darwin-x86/swank-rpc.dx32fsl"...
;Loading #P"/Users/pjb/.slime/fasl/2011-11-03/clozure-version_1.8__(darwinx8632)-darwin-x86/swank.dx32fsl"...
; Warning: These Swank interfaces are unimplemented:
;           (ACTIVATE-STEPPING ADD-FD-HANDLER ADD-SIGIO-HANDLER
;            BACKGROUND-SAVE-IMAGE DUP EXEC-IMAGE MAKE-FD-STREAM
;            REMOVE-FD-HANDLERS REMOVE-SIGIO-HANDLERS SLDB-BREAK-AT-START
;            SLDB-BREAK-ON-RETURN SLDB-STEP-INTO SLDB-STEP-NEXT SLDB-STEP-OUT)
; While executing: SWANK-BACKEND::WARN-UNIMPLEMENTED-INTERFACES, in process listener(1).
;; Swank started at port: 59352.
59352
? 
; Warning: Test failed: (&key #'#'+) => "(&key (function (function +)))"
;            Expected: "(&key (function #'+))"
; While executing: (:internal test test-print-arglist), in process worker(8).
(progn (load "/home/pjb/quicklisp/dists/quicklisp/software/slime-20111105-cvs/swank-loader.lisp" :verbose t) (funcall (read-from-string "swank-loader:init")) (funcall (read-from-string "swank:start-server") "/var/folders/8n/mh288ldn7z78_ygx7hmnm30w0000z8/T/slime.95268" :coding-system "utf-8-unix"))

;; swank:close-connection: Unexpected end of file on #<BASIC-TCP-STREAM UTF-8 (SOCKET/9) #xD05DADE>
; Warning: Not reloading SWANK.  Package already exists.
; While executing: SWANK-LOADER:INIT, in process listener(1).
; Warning: Streams already redirected.
; While executing: SWANK::INIT-GLOBAL-STREAM-REDIRECTION, in process listener(1).
;; Swank started at port: 59413.
59413
? 
Process inferior-lisp finished
(progn (load "/home/pjb/quicklisp/dists/quicklisp/software/slime-20111105-cvs/swank-loader.lisp" :verbose t) (funcall (read-from-string "swank-loader:init")) (funcall (read-from-string "swank:start-server") "/var/folders/8n/mh288ldn7z78_ygx7hmnm30w0000z8/T/slime.95268" :coding-system "utf-8-unix"))

; $ ( hostname --fqdn 2>/dev/null || hostname --long 2>/dev/null || hostname ) > /Users/pjb/hostname-D3443191.txt
To load "alexandria":
  Load 1 ASDF system:
    alexandria
; Loading "alexandria"

To load "com.informatimago.common-lisp":
  Load 1 ASDF system:
    com.informatimago.common-lisp
; Loading "com.informatimago.common-lisp"
.
To load "com.informatimago.clmisc":
  Load 1 ASDF system:
    com.informatimago.clmisc
; Loading "com.informatimago.clmisc"

Welcome to Clozure Common Lisp Version 1.8  (DarwinX8632)!
? ;Loading #P"/home/pjb/quicklisp/dists/quicklisp/software/slime-20111105-cvs/swank-loader.lisp"...
;Loading #P"/Users/pjb/.slime/fasl/2011-11-03/clozure-version_1.8__(darwinx8632)-darwin-x86/swank-backend.dx32fsl"...
;Loading #P"/Users/pjb/.slime/fasl/2011-11-03/clozure-version_1.8__(darwinx8632)-darwin-x86/metering.dx32fsl"...
;Loading #P"/Users/pjb/.slime/fasl/2011-11-03/clozure-version_1.8__(darwinx8632)-darwin-x86/swank-ccl.dx32fsl"...
;Loading #P"/Users/pjb/.slime/fasl/2011-11-03/clozure-version_1.8__(darwinx8632)-darwin-x86/swank-gray.dx32fsl"...
;Loading #P"/Users/pjb/.slime/fasl/2011-11-03/clozure-version_1.8__(darwinx8632)-darwin-x86/swank-match.dx32fsl"...
;Loading #P"/Users/pjb/.slime/fasl/2011-11-03/clozure-version_1.8__(darwinx8632)-darwin-x86/swank-rpc.dx32fsl"...
;Loading #P"/Users/pjb/.slime/fasl/2011-11-03/clozure-version_1.8__(darwinx8632)-darwin-x86/swank.dx32fsl"...
; Warning: These Swank interfaces are unimplemented:
;           (ACTIVATE-STEPPING ADD-FD-HANDLER ADD-SIGIO-HANDLER
;            BACKGROUND-SAVE-IMAGE DUP EXEC-IMAGE MAKE-FD-STREAM
;            REMOVE-FD-HANDLERS REMOVE-SIGIO-HANDLERS SLDB-BREAK-AT-START
;            SLDB-BREAK-ON-RETURN SLDB-STEP-INTO SLDB-STEP-NEXT SLDB-STEP-OUT)
; While executing: SWANK-BACKEND::WARN-UNIMPLEMENTED-INTERFACES, in process listener(1).
;; Swank started at port: 59430.
59430
? 
; Warning: Test failed: (&key #'#'+) => "(&key (function (function +)))"
;            Expected: "(&key (function #'+))"
; While executing: (:internal test test-print-arglist), in process worker(8).
Unhandled exception 10 at 0x176be0, context->regs at #xb0b63fbc
Exception occurred while executing foreign code
received signal 10; faulting address: 0x176be0
? for help
[34422] Clozure CL kernel debugger: :bt
[34422] Clozure CL kernel debugger: current thread: tcr = 0x479180, native thread ID = 0x31a03, interrupts enabled


(#x023EB614) #x0406A64D : #<Function %DO-FF-CALL #x0406A62E> + 31
(#x023EB628) #x0406B1CD : #<Function %FF-CALL #x0406A6B6> + 2839
(#x023EB658) #x0E429C75 : #<Anonymous Function #x0E429BDE> + 151
(#x023EB670) #x0E42AB6D : #<Function (:OBJC-DISPATCH instanceMethodSignatureForSelector:) #x0E42A73E> + 1071
(#x023EB6A8) #x0E6CF8B5 : #<Function *BUFFER-CHANGE-INVOCATION* #x0E6CF7EE> + 199
(#x023EB6D4) #x0E6CFAE5 : #<Anonymous Function #x0E6CF9B6> + 303
(#x023EB6E8) #x040E2ADD : #<Function $FASL-LFUNCALL #x040E2AAE> + 47
(#x023EB6F8) #x040EA72D : #<Function %FASLOAD #x040EA296> + 1175
(#x023EB744) #x043A6EA5 : #<Function %LOAD #x043A6226> + 3199
(#x023EB7FC) #x04116785 : #<Function LOAD #x04116416> + 879
(#x023EB848) #x04122705 : #<Function COMPILE-FILE #x04121D36> + 2511
(#x023EB8E8) #x0DCD048D : #<Function (:INTERNAL WITH-COMPILATION-UNIT-BODY LOAD-IDE-FILES) #x0DCD0276> + 535
(#x023EB914) #x043A21E5 : #<Function CALL-WITH-COMPILATION-UNIT #x043A212E> + 183
(#x023EB938) #x0DCD013D : #<Function LOAD-IDE-FILES #x0DCD000E> + 303
(#x023EB954) #x0DCD10A5 : #<Function LOAD-IDE #x0DCD0ED6> + 463
(#x023EB960) #x04497F35 : #<Function CALL-CHECK-REGS #x04497E3E> + 247
(#x023EB97C) #x043A41AD : #<Function (:INTERNAL WITH-COMPILATION-UNIT-BODY LOAD-FROM-STREAM) #x043A3F1E> + 655
(#x023EB9B8) #x043A21E5 : #<Function CALL-WITH-COMPILATION-UNIT #x043A212E> + 183
(#x023EB9DC) #x043A4455 : #<Function LOAD-FROM-STREAM #x043A4316> + 319
(#x023EB9FC) #x043A725D : #<Function %LOAD #x043A6226> + 4151
(#x023EBA9C) #x04116785 : #<Function LOAD #x04116416> + 879
(#x023EBAE8) #x043A0DF5 : #<Function MODULE-PROVIDE-SEARCH-PATH #x043A0D36> + 191
(#x023EBAFC) #x0412DAB5 : #<Function SOME-XX-ONE #x0412D8CE> + 487
(#x023EBB24) #x041023CD : #<Function REQUIRE #x041020DE> + 751
(#x023EBB50) #x04497F35 : #<Function CALL-CHECK-REGS #x04497E3E> + 247
(#x023EBB6C) #x0449B455 : #<Function CHEAP-EVAL #x0449B3FE> + 87
(#x023EBB88) #x0CFB9E8D : #<Function EVAL-REGION #x0CFB9CF6> + 407
(#x023EBBCC) #x0CFD4C65 : #<Function (:INTERNAL REPL-EVAL) #x0CFD4C2E> + 55
(#x023EBBDC) #x0CFD432D : #<Function TRACK-PACKAGE #x0CFD41B6> + 375
(#x023EBC08) #x0CFD4FB5 : #<Function (:INTERNAL REPL-EVAL) #x0CFD4F16> + 159
(#x023EBC18) #x0CF7255D : #<Function CALL-WITH-RETRY-RESTART #x0CF723CE> + 399
(#x023EBC44) #x0CFD509D : #<Function (:INTERNAL REPL-EVAL) #x0CFD4FF6> + 167
(#x023EBC54) #x0CEA4B6D : #<Anonymous Function #x0CEA4B26> + 71
(#x023EBC64) #x0CEA4E0D : #<Function CALL-WITH-SYNTAX-HOOKS #x0CEA4D5E> + 175
(#x023EBC78) #x0CFC4E5D : #<Function CALL-WITH-BUFFER-SYNTAX #x0CFC4D7E> + 223
(#x023EBC9C) #x0CFD5185 : #<Function REPL-EVAL #x0CFD50DE> + 167
(#x023EBCA8) #x0CFD566D : #<Function LISTENER-EVAL #x0CFD5606> + 103
(#x023EBCBC) #x04497F35 : #<Function CALL-CHECK-REGS #x04497E3E> + 247
(#x023EBCD8) #x0449B455 : #<Function CHEAP-EVAL #x0449B3FE> + 87
(#x023EBCF4) #x0CFBCB15 : #<Function EVAL-FOR-EMACS #x0CFBC606> + 1295
(#x023EBD7C) #x0CF95395 : #<Function PROCESS-REQUESTS #x0CF95246> + 335
(#x023EBDA0) #x0CF965FD : #<Function (:INTERNAL HANDLE-REQUESTS) #x0CF964BE> + 319
(#x023EBDDC) #x0CF96A3D : #<Function (:INTERNAL HANDLE-REQUESTS) #x0CF968B6> + 391
(#x023EBDF8) #x0CF32245 : #<Function CALL-WITH-DEBUGGER-HOOK #x0CF3218E> + 183
(#x023EBE3C) #x0CEACA1D : #<Function CALL-WITH-DEBUGGER-HOOK #x0CEAC96E> + 175
(#x023EBE54) #x0CF95BAD : #<Function (:INTERNAL HANDLE-REQUESTS) #x0CF95B56> + 87
(#x023EBE64) #x0CF5D5A5 : #<Function CALL-WITH-BINDINGS #x0CF5D406> + 415
(#x023EBE84) #x0CF97205 : #<Function HANDLE-REQUESTS #x0CF96EBE> + 839
(#x023EBEF0) #x0CFA72D5 : #<Function REPL-LOOP #x0CFA72A6> + 47
(#x023EBF00) #x0CF8EE15 : #<Function (:INTERNAL SPAWN-REPL-THREAD) #x0CF8EDE6> + 47
(#x023EBF10) #x0CF5D5A5 : #<Function CALL-WITH-BINDINGS #x0CF5D406> + 415
(#x023EBF30) #x0CF8EF05 : #<Function (:INTERNAL SPAWN-REPL-THREAD) #x0CF8EE4E> + 183
(#x023EBF40) #x044178AD : #<Function RUN-PROCESS-INITIAL-FORM #x0441762E> + 639
(#x023EBF84) #x044181FD : #<Function (:INTERNAL (%PROCESS-PRESET-INTERNAL (PROCESS))) #x0441800E> + 495
(#x023EBFCC) #x043EFC0D : #<Function (:INTERNAL THREAD-MAKE-STARTUP-FUNCTION) #x043EFAF6> + 279
[34422] Clozure CL kernel debugger: Current Thread Context Record (tcr) = 0x479180
Control (C) stack area:  low = 0xb0a01000, high = 0xb0b65000
Value (lisp) stack area: low = 0x22d2000, high = 0x23ec000
Exception stack pointer = 0xb0b642f8