- slime-devel - mailman3.common-lisp.net

[slime-devel] slime-list-callers broken again, under Lispworks
by Alain.Picard＠memetrics.com 13 Jul '04

13 Jul '04

From CVS co as of Mon Jul 12 10:32:48 2004 Doing a list callers results in this backtrace: Unknown symbol: render-3way-histogram [in #<PACKAGE COMMON-LISP-USER>] [Condition of type SIMPLE-ERROR] Restarts: 0: [ABORT] Abort handling SLIME request. 1: [ABORT] Quit process. Backtrace: 0: CONDITIONS::CONDITIONS-ERROR (:INVISIBLEP T "Unknown symbol: ~A [in ~A]" ("render-3way-histogram" #<PACKAGE COMMON-LISP-USER>)) 1: SWANK:XREF (:CALLERS "render-3way-histogram") 2: SPECIAL::%EVAL-NOHOOK ((SWANK:XREF (QUOTE :CALLERS) (QUOTE "render-3way-histogram"))) 3: IV:PROCESS-TOP-LEVEL (DSPEC:*CURRENT-FORM* #S(LEXICAL::ENVIRONMENT LEXICAL::VARIABLES NIL LEXICAL::FUNCTIONS NIL LEXICAL::REMOTE-ENVIRONMENT NIL) #<function LEXICAL:EVAL-WITH-ENV 20205D6A> &OPTIONAL :EXECUTE) 4: SWANK::EVAL-FOR-EMACS ((SWANK:XREF (QUOTE :CALLERS) (QUOTE "render-3way-histogram")) ":graphics" 18) 5: FUNCALL (SWANK::EVAL-FOR-EMACS &REST ((SWANK:XREF (QUOTE :CALLERS) (QUOTE "render-3way-histogram")) ":graphics" 18)) 6: (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 SWANK::HANDLE-REQUEST) NIL 7: SWANK::CALL-WITH-REDIRECTED-IO (#S(SWANK::CONNECTION SWANK::SOCKET-IO #<COMM:SOCKET-STREAM 223459DC> SWANK::DEDICATED-OUTPUT #3=#<COMM:SOCKET-STREAM 2234A1FC> SWANK::USER-INPUT #1=#<SWANK-BACKEND::SLIME-INPUT-STREAM 2234A894> SWANK::USER-OUTPUT #3# SWANK::USER-IO #<Two-way stream, input = #1#, output = #3#> SWANK::READER-THREAD #<MP:PROCESS Name "reader-thread" Priority 0 State "Waiting for socket input"> SWANK::CONTROL-THREAD #<MP:PROCESS Name "control-thread" Priority 0 State #2="Waiting for message"> SWANK::REPL-THREAD #<MP:PROCESS Name "repl-thread" Priority 0 State #2="Waiting for message"> SWANK::SERVE-REQUESTS #<function SWANK::SPAWN-THREADS-FOR-CONNECTION 222CE36A> READ #<function SWANK::READ-FROM-CONTROL-THREAD 222D4B32> SWANK-BACKEND:SEND #<function SWANK::SEND-TO-CONTROL-THREAD 222D639A> SWANK::CLEANUP NIL SWANK::INDENTATION-CACHE #<EQ Hash Table{120} 2234A0EC> SWANK::INDENTATION-CACHE-PACKAGES (#<PACKAGE SQL-COMMON> #<PACKAGE IV> #<PACKAGE LOADER> #<PACKAGE OS-UTILS> #<PACKAGE HARP> #<PACKAGE COMM> #<PACKAGE POSTGRESQL> #<PACKAGE CAPI-LAYOUT> #<PACKAGE IO> #<PACKAGE OMG.ORG/ROOT> #<PACKAGE WALKER> #<PACKAGE CAPI-INTERNALS> #<PACKAGE CONSTANTS> #<PACKAGE RAW> #<PACKAGE COMPILER> #<PACKAGE SWANK-BACKEND> #<PACKAGE GRAY-STREAM> #<PACKAGE KEYWORD> #<PACKAGE X-INTERNALS> #<PACKAGE MP> #<PACKAGE EDITOR> #<PACKAGE XM-LIBRARY> #<PACKAGE SWANK> #<PACKAGE FORMAT> #<PACKAGE ASDF> #<PACKAGE BLOWFISH> #<PACKAGE UFFI-SYSTEM> #<PACKAGE RUNTIME> #<PACKAGE MD5> #<PACKAGE SSL> #<PACKAGE NET.URI> #<PACKAGE META> #<PACKAGE LOOP> #<PACKAGE DATA-STRUCTURES> #<PACKAGE TYPE> #<PACKAGE XT-INTERNALS> #<PACKAGE FLI-INTERNALS> #<PACKAGE MATCH> #<PACKAGE REG> #<PACKAGE SEQ> #<PACKAGE SPLIT-SEQUENCE> #<PACKAGE INS> #<PACKAGE COLOR> #<PACKAGE SPECIAL> #<PACKAGE XOS_IDL> #<PACKAGE CHARACTER> #<PACKAGE LOW> #<PACKAGE NREGEX> #<PACKAGE COMMON-UTILITIES> #<PACKAGE CAPI-TOOLKIT> #<PACKAGE UFFI> #<PACKAGE GENERIC-UTILITIES> #<PACKAGE CLOS> #<PACKAGE OMG.ORG/PORTABLESERVER> #<PACKAGE GRAPHICS-PORTS> #<PACKAGE ACL-COMPAT-SYSTEM> #<PACKAGE SWANK-LOADER> #<PACKAGE VISITOR-SIMULATOR> #<PACKAGE COSNAMING> #<PACKAGE LISPWORKS> #<PACKAGE XMA-LIBRARY> #<PACKAGE NET.ASERVE> #<PACKAGE XOS_IDL/ALLOCATOR> #<PACKAGE LISPWORKS-TOOLS> #<PACKAGE DELIVERY> #<PACKAGE CAPI-LIBRARY> #<PACKAGE CL-GD> #<PACKAGE NET.ASERVE.CLIENT> #<PACKAGE X-TOOLS> #<PACKAGE CSV-PARSER> #<PACKAGE LEXICAL> #<PACKAGE SSL-INTERNAL> #<PACKAGE CONDITIONS> #<PACKAGE ACL-COMPAT.MP> #<PACKAGE NET.HTML.GENERATOR> #<PACKAGE XOS-LOGGING> #<PACKAGE FLI> #<PACKAGE ACL-COMPAT.SOCKET> #<PACKAGE SWANK-COMPLETION-TEST> #<PACKAGE SQL> #<PACKAGE ENVIRONMENT-INTERNALS> #<PACKAGE OMG.ORG/OPERATION> #<PACKAGE CAPI-MOTIF-LIBRARY> #<PACKAGE SWANK-IO-PACKAGE> #<PACKAGE PC386> #<PACKAGE ASERVE-SYSTEM> #<PACKAGE HTMLGEN-SYSTEM> #<PACKAGE PARTIAL-SORT> #<PACKAGE DBG> #<PACKAGE X-LIBRARY> #<PACKAGE ACL-COMPAT.SYSTEM> #<PACKAGE CAPI> #<PACKAGE MEMORY-MANAGER> #<PACKAGE CL-GD.SYSTEM> #<PACKAGE HQN-WEB> #<PACKAGE DE.DATAHEAVEN.CHUNKED-STREAM-MIXIN> #<PACKAGE GRAPHICS> #<PACKAGE PKG> #<PACKAGE SCM> #<PACKAGE ENVIRONMENT> #<PACKAGE LW-XP> #<PACKAGE SYSTEM> #<PACKAGE ASDF2690> #<PACKAGE HARLEQUIN-COMMON-LISP> #<PACKAGE DATABASE> #<PACKAGE X-UTILITIES> #<PACKAGE ACL-COMPAT.EXCL> #<PACKAGE CORBA> #<PACKAGE MODELLING-GLUE> #<PACKAGE EXTERNAL-FORMAT> #<PACKAGE STREAM> #<PACKAGE XOS> #<PACKAGE DSPEC> #<PACKAGE EXE-PARSER> #<PACKAGE XM-INTERNALS> #<PACKAGE PARSERGEN> #<PACKAGE COMMON-LISP> #<PACKAGE CORBA-INTERNAL> #<PACKAGE STRUCTURE> #<PACKAGE SETF> #<PACKAGE XT-LIBRARY> #<PACKAGE XOS-EXPRESSIONS> #<PACKAGE ASDF2676> #<PACKAGE NUMBERS> #<PACKAGE COMMON-LISP-USER> #<PACKAGE CACHE-TABLES>)) #<function (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 SWANK::HANDLE-REQUEST) 222E5652>) 8: SWANK::HANDLE-REQUEST (#S(SWANK::CONNECTION SWANK::SOCKET-IO #<COMM:SOCKET-STREAM 223459DC> SWANK::DEDICATED-OUTPUT #3=#<COMM:SOCKET-STREAM 2234A1FC> SWANK::USER-INPUT #1=#<SWANK-BACKEND::SLIME-INPUT-STREAM 2234A894> SWANK::USER-OUTPUT #3# SWANK::USER-IO #<Two-way stream, input = #1#, output = #3#> SWANK::READER-THREAD #<MP:PROCESS Name "reader-thread" Priority 0 State "Waiting for socket input"> SWANK::CONTROL-THREAD #<MP:PROCESS Name "control-thread" Priority 0 State #2="Waiting for message"> SWANK::REPL-THREAD #<MP:PROCESS Name "repl-thread" Priority 0 State #2="Waiting for message"> SWANK::SERVE-REQUESTS #<function SWANK::SPAWN-THREADS-FOR-CONNECTION 222CE36A> READ #<function SWANK::READ-FROM-CONTROL-THREAD 222D4B32> SWANK-BACKEND:SEND #<function SWANK::SEND-TO-CONTROL-THREAD 222D639A> SWANK::CLEANUP NIL SWANK::INDENTATION-CACHE #<EQ Hash Table{120} 2234A0EC> SWANK::INDENTATION-CACHE-PACKAGES (#<PACKAGE SQL-COMMON> #<PACKAGE IV> #<PACKAGE LOADER> #<PACKAGE OS-UTILS> #<PACKAGE HARP> #<PACKAGE COMM> #<PACKAGE POSTGRESQL> #<PACKAGE CAPI-LAYOUT> #<PACKAGE IO> #<PACKAGE OMG.ORG/ROOT> #<PACKAGE WALKER> #<PACKAGE CAPI-INTERNALS> #<PACKAGE CONSTANTS> #<PACKAGE RAW> #<PACKAGE COMPILER> #<PACKAGE SWANK-BACKEND> #<PACKAGE GRAY-STREAM> #<PACKAGE KEYWORD> #<PACKAGE X-INTERNALS> #<PACKAGE MP> #<PACKAGE EDITOR> #<PACKAGE XM-LIBRARY> #<PACKAGE SWANK> #<PACKAGE FORMAT> #<PACKAGE ASDF> #<PACKAGE BLOWFISH> #<PACKAGE UFFI-SYSTEM> #<PACKAGE RUNTIME> #<PACKAGE MD5> #<PACKAGE SSL> #<PACKAGE NET.URI> #<PACKAGE META> #<PACKAGE LOOP> #<PACKAGE DATA-STRUCTURES> #<PACKAGE TYPE> #<PACKAGE XT-INTERNALS> #<PACKAGE FLI-INTERNALS> #<PACKAGE MATCH> #<PACKAGE REG> #<PACKAGE SEQ> #<PACKAGE SPLIT-SEQUENCE> #<PACKAGE INS> #<PACKAGE COLOR> #<PACKAGE SPECIAL> #<PACKAGE XOS_IDL> #<PACKAGE CHARACTER> #<PACKAGE LOW> #<PACKAGE NREGEX> #<PACKAGE COMMON-UTILITIES> #<PACKAGE CAPI-TOOLKIT> #<PACKAGE UFFI> #<PACKAGE GENERIC-UTILITIES> #<PACKAGE CLOS> #<PACKAGE OMG.ORG/PORTABLESERVER> #<PACKAGE GRAPHICS-PORTS> #<PACKAGE ACL-COMPAT-SYSTEM> #<PACKAGE SWANK-LOADER> #<PACKAGE VISITOR-SIMULATOR> #<PACKAGE COSNAMING> #<PACKAGE LISPWORKS> #<PACKAGE XMA-LIBRARY> #<PACKAGE NET.ASERVE> #<PACKAGE XOS_IDL/ALLOCATOR> #<PACKAGE LISPWORKS-TOOLS> #<PACKAGE DELIVERY> #<PACKAGE CAPI-LIBRARY> #<PACKAGE CL-GD> #<PACKAGE NET.ASERVE.CLIENT> #<PACKAGE X-TOOLS> #<PACKAGE CSV-PARSER> #<PACKAGE LEXICAL> #<PACKAGE SSL-INTERNAL> #<PACKAGE CONDITIONS> #<PACKAGE ACL-COMPAT.MP> #<PACKAGE NET.HTML.GENERATOR> #<PACKAGE XOS-LOGGING> #<PACKAGE FLI> #<PACKAGE ACL-COMPAT.SOCKET> #<PACKAGE SWANK-COMPLETION-TEST> #<PACKAGE SQL> #<PACKAGE ENVIRONMENT-INTERNALS> #<PACKAGE OMG.ORG/OPERATION> #<PACKAGE CAPI-MOTIF-LIBRARY> #<PACKAGE SWANK-IO-PACKAGE> #<PACKAGE PC386> #<PACKAGE ASERVE-SYSTEM> #<PACKAGE HTMLGEN-SYSTEM> #<PACKAGE PARTIAL-SORT> #<PACKAGE DBG> #<PACKAGE X-LIBRARY> #<PACKAGE ACL-COMPAT.SYSTEM> #<PACKAGE CAPI> #<PACKAGE MEMORY-MANAGER> #<PACKAGE CL-GD.SYSTEM> #<PACKAGE HQN-WEB> #<PACKAGE DE.DATAHEAVEN.CHUNKED-STREAM-MIXIN> #<PACKAGE GRAPHICS> #<PACKAGE PKG> #<PACKAGE SCM> #<PACKAGE ENVIRONMENT> #<PACKAGE LW-XP> #<PACKAGE SYSTEM> #<PACKAGE ASDF2690> #<PACKAGE HARLEQUIN-COMMON-LISP> #<PACKAGE DATABASE> #<PACKAGE X-UTILITIES> #<PACKAGE ACL-COMPAT.EXCL> #<PACKAGE CORBA> #<PACKAGE MODELLING-GLUE> #<PACKAGE EXTERNAL-FORMAT> #<PACKAGE STREAM> #<PACKAGE XOS> #<PACKAGE DSPEC> #<PACKAGE EXE-PARSER> #<PACKAGE XM-INTERNALS> #<PACKAGE PARSERGEN> #<PACKAGE COMMON-LISP> #<PACKAGE CORBA-INTERNAL> #<PACKAGE STRUCTURE> #<PACKAGE SETF> #<PACKAGE XT-LIBRARY> #<PACKAGE XOS-EXPRESSIONS> #<PACKAGE ASDF2676> #<PACKAGE NUMBERS> #<PACKAGE COMMON-LISP-USER> #<PACKAGE CACHE-TABLES>))) 9: (HARLEQUIN-COMMON-LISP:SUBFUNCTION MP::PROCESS-SG-FUNCTION MP::INITIALIZE-PROCESS-STACK) (:DONT-KNOW) 10: SYSTEM::%%FIRST-CALL-TO-STACK NIL

3 4

[slime-devel] invoke-nth-restart, cmucl and *communication-style* :sigio
by Marco Baringer 13 Jul '04

13 Jul '04

connecting to a remote (as in slime-connect) cmucl lisp with the *communication-style* set to :sigio. a thread signals an error and i get an sldb debugger in emacs. however none of the restarts actually do anything. all i get is a message in the minibuffer "Restart returned: nil" and i'm left in the debugger. the only restart which causes a noticable change is the sldb-abort restart, which gets me out of the debugger but leave the thread waiting for input. setting the *communication-style* to :spawn fixs the issue. -- -Marco Ring the bells that still can ring. Forget your perfect offering. There is a crack in everything. That's how the light gets in. -Leonard Cohen

2 4

[slime-devel] tab in inspector
by Eric Blood 13 Jul '04

13 Jul '04

Attached is a patch that will allow the TAB key in the inspector to move to the next inspectable field. -- eblood

2 3

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 13 Jul '04

13 Jul '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.466 slime/ChangeLog:1.467 --- slime/ChangeLog:1.466 Fri Jul 9 11:09:18 2004 +++ slime/ChangeLog Mon Jul 12 03:55:19 2004 @@ -1,3 +1,18 @@ +2004-07-12 Luke Gorrie <luke(a)bluetail.com> + + * slime.el (slime-easy-menu): Added "Apropos all" menu item. + (slime-restart-lisp): Added `restart-lisp' shortcut. Doesn't do + the right thing if you have multiple Lisps up. + + * swank.lisp: Added some docstrings. + Rearranged completion code and somewhat SLDB trying to layout + functions above their subfunctions in a tree-like way. + (slime-protocol-error): Renamed from slime-read-error. + (carefully-find-package): Now returns NIL if package can't be + determined, rather than *BUFFER-PACKAGE*. Correct? I didn't see + why it should return *BUFFER-PACKAGE*. + (xref): Find symbol in *BUFFER-PACKAGE*. + 2004-07-09 Peter Seibel <peter(a)javamonkey.com> * swank.lisp (package-string-for-prompt): Change the way package

3 2

[slime-devel] Using the REPL when a computation is running.
by Dirk Gerrits 12 Jul '04

12 Jul '04

Hi. On 13 January I noted that evaluating an expression in the REPL was not possible if there was still a computation underway. I then asked whether this could be fixed. I was told by Brian Mastenbrook that it required threading, and that some work on it had been done. Raymond Toy replied that threads were not strictly necessary, and that ILISP did it by interrupting the current computation, performing the requested action, and then resuming the computation again. Luke Gorrie said he liked that idea. He also noted that the discussions on threading until that time were not exactly related to my request. Since then, I haven't really followed the SLIME list that much, nor have I done much with Lisp :(. Now that my summer vacation is here, I decided to catch up, and fetch the latest SLIME. Not only did I find a nice manual, but to my amazement, the following actually works: CL-USER> (defvar *stop-damnit* nil) *STOP-DAMNIT* CL-USER> (loop until *stop-damnit*) (setq *stop-damnit* t) NIL CL-USER> T Great job guys! Keep it up. :) I'd just like to ask if there's anything else I need to know about this functionality. Are there any limitations? Dangers? Which Lisp implementations does it work with? Regards, Dirk Gerrits

3 6

[slime-devel] Canonical package nicknames patch
by Peter Seibel 11 Jul '04

11 Jul '04

So it mildly annoys me that SLIME does this: CL-USER> (in-package :foo) #<The FOO package> FOO> (in-package :cl-user) #<The COMMON-LISP-USER package> USER> Note the final prompt. I seem to recall some discussion of this. I have a tiny patch to swank.lisp that causes shortest-package-nickname to check a *canonical-packge-names* alist first to see if there's a known prefered name for a given package. Currently *canonical-packge-names* contains only ("COMMON-LISP-USER" . "CL-USER"). I can check this in if folks think it's a good idea (or at least not a bad one.) If you want I can also change the function name from shortest-package-nickname to canonical-package-nickname which would be more descriptive of the new behavior. -Peter Index: swank.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank.lisp,v retrieving revision 1.210 diff -u -r1.210 swank.lisp --- swank.lisp 7 Jul 2004 15:09:33 -0000 1.210 +++ swank.lisp 9 Jul 2004 16:15:25 -0000 @@ -54,6 +54,9 @@ (defconstant keyword-package (find-package :keyword) "The KEYWORD package.") +(defvar *canonical-packge-names* + '(("COMMON-LISP-USER" . "CL-USER"))) + (defvar *swank-io-package* (let ((package (make-package :swank-io-package :use '()))) (import '(nil t quote) package) @@ -1313,11 +1316,12 @@ (defun shortest-package-nickname (package) "Return the shortest nickname (or canonical name) of PACKAGE." - (loop for name in (cons (package-name package) (package-nicknames package)) - for shortest = name then (if (< (length name) (length shortest)) - name - shortest) - finally (return shortest))) + (or (cdr (assoc (package-name package) *canonical-packge-names* :test #'string=)) + (loop for name in (cons (package-name package) (package-nicknames package)) + for shortest = name then (if (< (length name) (length shortest)) + name + shortest) + finally (return shortest)))) (defslimefun interactive-eval-region (string) (with-buffer-syntax () -- Peter Seibel peter(a)javamonkey.com Lisp is the red pill. -- John Fraser, comp.lang.lisp

4 7

[slime-devel] Slightly OT: texi2html of slime.texi
by David Steuber 10 Jul '04

10 Jul '04

Hi, Just a quick question here. Why does texi2html put the Contents near the end of the document? Is it something to do with the way the texi source is set up, or is it a bug in texi2html? To see what I mean, you can look here: http://www.david-steuber.com/~david/Lisp/slime.html I generally like to have a separate HTML copy of the documentation. Anyway, other than that minor detail, the documentation looks good and the links all seem to work.

1 0

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 10 Jul '04

10 Jul '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.464 slime/ChangeLog:1.466 --- slime/ChangeLog:1.464 Wed Jul 7 08:10:08 2004 +++ slime/ChangeLog Fri Jul 9 11:09:18 2004 @@ -1,3 +1,19 @@ +2004-07-09 Peter Seibel <peter(a)javamonkey.com> + + * swank.lisp (package-string-for-prompt): Change the way package + name in prompt is computed. N.B. after this change the name + displayed will not necsarily be either an actual name or nickname + of the package: if the name contains dots by default the prompt + will only display the last element, i.e. COM.GIGAMONKEYS.SPAM will + be shown as SPAM. This change also makes CL-USER the canonical + name for COMMON-LISP-USER even in implementations that provide a + shorter nickname such as USER. + +2004-07-09 Christophe Rhodes <csr21(a)cam.ac.uk> + + * slime.el (sldb-lookup-reference): substitute hyphens for spaces + in the url. + 2004-07-07 Thomas Schilling <tjs_ng(a)yahoo.de> * swank.lisp (arglist-for-insertion): Changed formatting to use

1 0

[slime-devel] What expressions can be inspected with slime-inspect?
by Paolo Amoroso 09 Jul '04

09 Jul '04

What kind of expressions it is possible to inspect with the `slime-inspect' command? Suppose I evaluate this in a SLIME repl: (defclass my-class () ((a) (b)) then invoke `slime-inspect' from a Lisp mode buffer with `C-c I' and type: (make-instance 'cl-user::my-class) I get this error: Error in function PCL::FIND-CLASS-FROM-CELL: No class named: COMMON-LISP-USER::MY-CLASS. [Condition of type SIMPLE-ERROR] Restarts: 0: [ABORT] Abort handling SLIME request. 1: [ABORT] Return to Top-Level. Backtrace: 0: (PCL::FIND-CLASS-FROM-CELL COMMON-LISP-USER::MY-CLASS NIL T) 1: ("DEFMETHOD MAKE-INSTANCE (SYMBOL)" #<#1=unused-arg> #<#1#> COMMON-LISP-USER::MY-CLASS NIL) 2: ("DEFSLIMEFUN INIT-INSPECTOR") --more-- Am I supposed to do that? In which environment does `slime-inspect' evaluate expressions? Paolo -- Why Lisp? http://alu.cliki.net/RtL%20Highlight%20Film

2 7

[slime-devel] condition references in *compiler-notes*
by Christophe Rhodes 09 Jul '04

09 Jul '04

Hi, Attached is a patch implementing compiler note references in the *compiler-notes* buffer. I'm sending it here for discussion, not only because it only works in bleeding-edge sbcl (yes, once again breaking all released versions...) but because of some of the violence I've done to slime.el. I'm aware of the badly-factored nature of the current patch, and I promise to fix that, but what worries in particular is the stuff in slime-tree-default-printer: how does it work, and what am I allowed to do there. What I have seems to work currently, but additional newlines (from terpri or (insert "\n")) cause weird stuff to happen -- I don't really understand why, but the " |" things ended up at the bottom, as in <http://www-jcsu.jesus.cam.ac.uk/~csr21/tree-oops.png">. Understanding what's going on would probably enable me to make a cleaner patch... Cheers, Christophe -- http://www-jcsu.jesus.cam.ac.uk/~csr21/ +44 1223 510 299/+44 7729 383 757 (set-pprint-dispatch 'number (lambda (s o) (declare (special b)) (format s b))) (defvar b "~&Just another Lisp hacker~%") (pprint #36rJesusCollegeCambridge)

1 0