[Openmcl-devel] Initial bindings

[Ron Garret]

This is unbelievably frustrating.  The default initial binding of ccl::*print-string-length* is 1000:

? (setf *print-string-length* nil)
NIL
? (ccl::process-run-function "foo" (lambda (s) (print *print-string-length* s))
  *terminal-io*)
#<PROCESS foo(7) [Reset] #x302000DBA57D>

1000 

This causes all kinds of problems, including preventing Hunchentoot from printing backtraces.  So I try to change this by doing:

? (ccl::define-standard-initial-binding *print-string-length* (lambda () nil))
NIL

The result is:

? (ccl::process-run-function "foo" (lambda (s) (print *print-string-length* s))
  *terminal-io*)
#<PROCESS foo(8) [Reset] #x302000DB1D0D>

and the following in the altconsole:

> Error: (NIL CCL::*LISTENER-AUTORELEASE-POOL* CCL::*FREE-XPS* CCL::*FREE-CIRCULARITY-HASH-TABLES* CCL::*LOGICAL-BLOCK-XP* CCL::*FORMAT-TOP-LEVEL* CCL::*FORMAT-STREAM-STACK* CCL::*VINSN-VARPARTS* CCL::*VINSN-LABEL-FREELIST* CCL::*VINSN-FREELIST* CCL::*LCELL-FREELIST* CCL::*LREG-FREELIST* CCL::*FRAG-FREELIST* CCL::*X86-LAP-FRAG-VECTOR-FREELIST* CCL::*X86-LAP-LABEL-FREELIST* *PRINT-STRING-LENGTH* *PRINT-SIMPLE-BIT-VECTOR* *PRINT-SIMPLE-VECTOR* *PRINT-STRUCTURE* *PRINT-ABBREVIATE-QUOTE* ...) is not a proper list of bindable symbols of length < 169.
> While executing: CCL::CHECK-SYMBOL-LIST, in process foo(8).


;;;
;;; #<PROCESS foo(8) [Reset] #x302000DB1D0D> requires access to Shared Terminal Input
;;; Type (:y 8) to yield control to this thread.
;;;

As an aside, following the instructions and typing (:y 8) in both the altconsole and the listener has no effect.

Grrrr.....

rg