Custom Query (1030 matches)

If an attempt is made to encode a string to octets using an encoding that does not support some of the characters in the string, the result should be an error, but is in fact a bogus byte vector, e.g.:

? (encode-string-to-octets "(λ (μ) μ)" :EXTERNAL-format :ascii)
#(40 26 32 40 26 41 32 26 41)

% 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

Using Clozure Common Lisp-Version 1.11-RC1-r16620 (DarwinX8664) to define functions within function groups, the functions defined must have unique names that can be traced back to the group in which they were defined. In the code snippet below the macro defop-environment sets up a name as a special variable that is used in defop, partly to get the intended name, partly to ensure defop was used within a defop-environment. The code below is as short as I could make it. It works in Clisp and ABCL but does not work in CCL (or SBCL for that matter).

(unless (find-package :wondering)
  (defpackage wondering
    (:use :cl)))

(in-package :wondering)

(defvar *environments*
  (make-hash-table :test 'eq))

(let ((defop-prefix "OP-FN%"))

  (defmacro defop-environment (name &rest defops)
    "(defop-environment <name> &rest <defops>)
 Define a new operator environment with name <name> and operators
 defined by <defops>."
    (let ((new-table (make-hash-table :test 'eq)))
      `(let ((*name-prefix* ,(concatenate 'string defop-prefix (string name) "%"))
	     (*operator-table* ,new-table))
	 (declare (special *environments* *operator-table* *name-prefix*))
	 (format *trace-output* "Before defop *name-prefix* ~S~%" *name-prefix*)
	 ,@defops
	 (setf (gethash ',name *environments*) *operator-table*)
	 ',name)))

  (defmacro defop (name lambda-list &body body)
    "Define an operator.  Error unless used within a
 defop-environment."
    (declare (special *name-prefix*))
    (format *trace-output* "(defwalk ~A ~A~%  ~{~S~})~%"name lambda-list body)
    (unless (and (boundp '*name-prefix*) (stringp *name-prefix*))
      (error "Only use defop inside a defop-environmemt."))
    (let ((fname (values (intern
			  (concatenate 'string *name-prefix*
				       (string (if (symbolp name) name (car name))))
			  *package*))))
      (format *trace-output* "In defop *name-prefix* ~S, fname: ~S~%"
	      *name-prefix* fname)
      `(locally
	   (declare (special *operator-table*))
	 (defun ,fname ,lambda-list ,@body)
	 (setf (gethash ',name *operator-table*) ',fname)
	 ',name))))

Evaluating (defop-environment env0 (defop fn0 (x y) (fn x y))) directly makes CCL unhappy:

Only use defop inside a defop-environmemt.

[Condition of type SIMPLE-ERROR]

Could you please look into this? A workaround is also very welcome.

Thank you very much,

Ernst van Waning