Custom Query (1030 matches)

Certainly not something very important:

deng-hhueb 445_$ cd /tmp/ deng-hhueb 446_$ mkdir junk deng-hhueb 447_$ cd junk deng-hhueb 448_$ rmdir /tmp/junk deng-hhueb 449_$ /usr/local/openmcl/working-0711-10188/lx86cl64 -n Unhandled exception 11 at 0x300040396dbc, context->regs at #x7fff22a29b58 ? for help [11239] OpenMCL kernel debugger: b [...] (#x00002AAAAB3D5688) #x0000300040E74B6C : #<Function DO-XP-PRINTING #x0000300040E748FF> + 621 (#x00002AAAAB3D5710) #x0000300040E75434 : #<Function (:INTERNAL DO-IT XP-PRINT) #x0000300040E753FF> + 53 (#x00002AAAAB3D5738) #x0000300040E75BCC : #<Function MAYBE-INITIATE-XP-PRINTING #x0000300040E7598F> + 573 (#x00002AAAAB3D57B8) #x0000300040AA4BBC : #<Function FORMAT #x0000300040AA450F> + 1709 (#x00002AAAAB3D5860) #x0000300040599DC4 : #<Function %BREAK-MESSAGE #x00003000405999CF> + 1013 (#x00002AAAAB3D5A18) #x000030004059BA84 : #<Function BREAK-LOOP-HANDLE-ERROR #x000030004059B86F> + 533 (#x00002AAAAB3D5A70) #x000030004064E294 : #<Function %ERROR #x000030004064E12F> + 357 (#x00002AAAAB3D5A98) #x000030004036D11C : #<Function STREAM-IS-CLOSED #x000030004036D0EF> + 45 (#x00002AAAAB3D5AB0) #x00003000403D27BC : #<Method-Function STREAM-WRITE-STRING (BASIC-CHARACTER-OUTPUT-STREAM T) #x00003000403D270F> + 173 (#x00002AAAAB3D5B10) #x0000300040E74B6C : #<Function DO-XP-PRINTING #x0000300040E748FF> + 621 (#x00002AAAAB3D5B98) #x0000300040E75434 : #<Function (:INTERNAL DO-IT XP-PRINT) #x0000300040E753FF> + 53 (#x00002AAAAB3D5BC0) #x0000300040E75BCC : #<Function MAYBE-INITIATE-XP-PRINTING #x0000300040E7598F> + 573 (#x00002AAAAB3D5C40) #x0000300040AA4BBC : #<Function FORMAT #x0000300040AA450F> + 1709 (#x00002AAAAB3D5CE8) #x0000300040599DC4 : #<Function %BREAK-MESSAGE #x00003000405999CF> + 1013 (#x00002AAAAB3D5EA0) #x000030004059BA84 : #<Function BREAK-LOOP-HANDLE-ERROR #x000030004059B86F> + 533 (#x00002AAAAB3D5EF8) #x000030004064E294 : #<Function %ERROR #x000030004064E12F> + 357 (#x00002AAAAB3D5F20) #x000030004040EB64 : #<Function (:INTERNAL TRY-GETTING-DIRNAME CURRENT-DIRECTORY-NAME) #x000030004040EAAF> + 181 (#x00002AAAAB3D5F50) #x000030004040ED2C : #<Function CURRENT-DIRECTORY-NAME #x000030004040ECBF> + 109 (#x00002AAAAB3D5F88) #x000030004043F354 : #<Function MAC-DEFAULT-DIRECTORY #x000030004043F32F> + 37 (#x00002AAAAB3D5FA0) #x000030004063EA64 : #<Function INIT-LOGICAL-DIRECTORIES #x000030004063EA3F> + 37 (#x00002AAAAB3D5FB0) #x0000300040E8A614 : #<Function RESTORE-LISP-POINTERS #x0000300040E8A53F> + 213

It seems to loop until the stack is exhausted because the error message can't be printed.

Sometimes, something like this happens.

Welcome to Clozure Common Lisp Version 1.2-r10446:10448M-trunk  (DarwinX8632)!
? (process-run-function "do nothing" (lambda ()))
#<PROCESS do nothing(2) [#<Unprintable IMMEDIATE : #xF3>] #x88CB886>

#xf3 is x8632::subtag-no-thread-local-binding.

One expect to see this:

#<PROCESS do nothing(2) [Reset] #x88CB886>

The following doesn't work right in the x8632 lisp, and I wonder if someone else could take a look at it.

From the test suite:

(defgeneric cnm-gf-03 (x)
  (:method ((x integer)) #'call-next-method)
  (:method ((x t)) t))

(funcall (cnm-gf-03 0))

The result should be t, but the x8632 lisp gets an error.