<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div>BTW, thanks for the quick responses, good people.</div><div><br></div><div>I updated ccl as suggested by R. Matthew Emerson. I am still getting the same problem.</div><div><br></div><div>I should emphasize that <i>the problem is intermittent, </i>from which I infer&nbsp;that any of ccl, slime, and asdf or some combination may still be the culprit(s). What I mean is, for example, loading asdf in raw ccl (without emacs+slime) does not prove that it's not asdf, since sometimes asdf loads fine when using emacs+slime+ccl. And so forth....</div><div><br></div><div>So I'm now running with ccl version:</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">        </span>Version 1.3-r13097M</div><div><br></div><div><br></div><div>For about a month I ran emacs+slime+sbcl instead of ccl. I do not get this error with sbcl. I tried sbcl again this afternoon; it seems not to exhibit the problem. (Robert Goldman: thanks for the suggestion.)</div><div><br></div><div>As requested by Mr. Rittweiler, here is a complete stack trace of the latest failure:</div><div><br></div><div>========</div><div><br></div><div><br></div><div><div>value 0 is not of the expected type CCL::CTYPE.</div><div>&nbsp;&nbsp; [Condition of type TYPE-ERROR]</div><div><br></div><div>Restarts:</div><div>&nbsp;0: [RETRY-LOAD] Retry loading #P"/Library/Application Support/Aquamacs Emacs/SLIME/contrib/swank-asdf.lisp"</div><div>&nbsp;1: [SKIP-LOAD] Skip loading #P"/Library/Application Support/Aquamacs Emacs/SLIME/contrib/swank-asdf.lisp"</div><div>&nbsp;2: [LOAD-OTHER] Load other file instead of #P"/Library/Application Support/Aquamacs Emacs/SLIME/contrib/swank-asdf.lisp"</div><div>&nbsp;3: [ABORT] Return to SLIME's top level.</div><div>&nbsp;4: [ABORT-BREAK] Reset this thread</div><div>&nbsp;5: [ABORT] Kill this thread</div><div><br></div><div>Backtrace:</div><div>&nbsp;&nbsp;0: (CCL::CSUBTYPEP #&lt;CONS-CTYPE CONS&gt; 0)</div><div>&nbsp;&nbsp;1: (CCL::NX1-CXR (CDR #:G19) #&lt;CCL::LEXICAL-ENVIRONMENT #x30004136459D&gt;)</div><div>&nbsp;&nbsp;2: (CCL::NX1-COMBINATION (CDR #:G19) #&lt;CCL::LEXICAL-ENVIRONMENT #x30004136459D&gt;)</div><div>&nbsp;&nbsp;3: (CCL::NX1-TRANSFORMED-FORM (CDR #:G19) #&lt;CCL::LEXICAL-ENVIRONMENT #x30004136459D&gt;)</div><div>&nbsp;&nbsp;4: (CCL::NX1-TYPED-FORM (PROGN (CDR #:G19)) #&lt;CCL::LEXICAL-ENVIRONMENT #x30004136459D&gt;)</div><div>&nbsp;&nbsp;5: (CCL::NX1-FORM (PROGN (CDR #:G19)) #&lt;CCL::LEXICAL-ENVIRONMENT #x30004136459D&gt;)</div><div>&nbsp;&nbsp;6: (CCL::NX1-FORMLIST ((TAGBODY (GO #:G23) ..)))</div><div>&nbsp;&nbsp;7: (CCL::NX1-PROGN-BODY ((TAGBODY (GO #:G23) ..)))</div><div>&nbsp;&nbsp;8: (CCL::NX1-ENV-BODY ((TAGBODY (GO #:G23) ..)))</div><div>&nbsp;&nbsp;9: (CCL::NX1-LET* (LET* ((#:G24 (DELETE-DUPLICATES # :TEST #'STRING=)) #:G20) ..)</div><div>&nbsp;10: (CCL::NX1-COMBINATION (LET* ((#:G24 (DELETE-DUPLICATES # :TEST #'STRING=)) #:G20) ..)</div><div>&nbsp;11: (CCL::NX1-TRANSFORMED-FORM (LET* ((#:G24 (DELETE-DUPLICATES # :TEST #'STRING=)) #:G20) ..)</div><div>&nbsp;12: (CCL::NX1-TYPED-FORM (LET* ((#:G24 (DELETE-DUPLICATES # :TEST #'STRING=)) #:G20) ..)</div><div>&nbsp;13: (CCL::NX1-FORM (LET* ((#:G24 (DELETE-DUPLICATES # :TEST #'STRING=)) #:G20) ..)</div><div>&nbsp;14: (CCL::NX1-BLOCK (BLOCK NIL ..)</div><div>&nbsp;15: (CCL::NX1-COMBINATION (BLOCK NIL ..)</div><div>&nbsp;16: (CCL::NX1-TRANSFORMED-FORM (BLOCK NIL ..)</div><div>&nbsp;17: (CCL::NX1-TYPED-FORM (DOLIST (#:G20 (DELETE-DUPLICATES (BLOCK NIL #) :TEST #'STRING=) (CDR #:G19)) (SETQ #1=#:G18 (SETF (CDR #1#) (LIST #)))) #&lt;CCL::LEXICAL-ENVIRONMENT #x3000413650CD&gt;)</div><div>&nbsp;18: (CCL::NX1-FORM (DOLIST (#:G20 (DELETE-DUPLICATES (BLOCK NIL #) :TEST #'STRING=) (CDR #:G19)) (SETQ #1=#:G18 (SETF (CDR #1#) (LIST #)))) #&lt;CCL::LEXICAL-ENVIRONMENT #x3000413650CD&gt;)</div><div>&nbsp;19: (CCL::NX1-ENV-BODY ((DOLIST (#:G20 (DELETE-DUPLICATES # :TEST #'STRING=) (CDR #:G19)) (SETQ #:G18 (SETF # #)))) #&lt;CCL::LEXICAL-ENVIRONMENT #x30004136623D&gt;)</div><div>&nbsp;20: (CCL::NX1-LET* (LET* ((#:G18 (CONS NIL NIL)) (#:G19 #:G18) (#:G21 #'PATHNAME-NAME)) ..))</div><div>&nbsp;&nbsp; &nbsp; &nbsp;Locals:</div><div>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;#:G4726 = (LET* ((#:G18 (CONS NIL NIL)) (#:G19 #:G18) (#:G21 #'PATHNAME-NAME)) ..))</div><div>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;#:G4727 = #&lt;CCL::LEXICAL-ENVIRONMENT #x3000411A59ED&gt;</div><div>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;#:ARGS4728 = #&lt;CCL::DESTRUCTURE-STATE #x2378F7D&gt;</div><div>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;CCL::VARSPECS = ((#:G18 (CONS NIL NIL)) (#:G19 #:G18) (#:G21 #'PATHNAME-NAME))</div><div>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;#:REST4729 = ((DECLARE (DYNAMIC-EXTENT #:G18) (TYPE CONS #:G18 #:G19)) ..)))</div><div>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;CCL::VALS = ((25650 (#:|nil|) (#:|nil|)) ..)))</div><div>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;CCL::VAL = (8281 PATHNAME-NAME)</div><div>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;CCL::VAR-BOUND-VARS = ((#&lt;CCL::VAR #x3000411A4A7D&gt; 0 . #&lt;CCL::VAR #x3000411A4B9D&gt;))</div><div>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;CCL::*NX-BOUND-VARS* = (#&lt;CCL::VAR #x3000411A595D&gt;)</div><div>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;CCL::OLD-ENV = #&lt;CCL::LEXICAL-ENVIRONMENT #x3000411A59ED&gt;</div><div>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;CCL::*NX-NEW-P2DECLS* = 2162688</div><div>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;CCL::*NX-INLINED-SELF* = T</div><div>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;CCL::*NX-LEXICAL-ENVIRONMENT* = #&lt;CCL::LEXICAL-ENVIRONMENT #x3000411A59ED&gt;</div><div>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;CCL::BODY = ((DOLIST (#:G20 (DELETE-DUPLICATES # :TEST #'STRING=) (CDR #:G19)) ..)))</div><div>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;CCL::DECLS = ((DECLARE (DYNAMIC-EXTENT #:G18) (TYPE CONS #:G18 #:G19)))</div><div>&nbsp;21: (CCL::NX1-COMBINATION (LET* ((#:G18 (CONS NIL NIL)) (#:G19 #:G18) (#:G21 #'PATHNAME-NAME)) ..))</div><div>&nbsp;22: (CCL::NX1-TRANSFORMED-FORM (LET* ((#:G18 (CONS NIL NIL)) (#:G19 #:G18) (#:G21 #'PATHNAME-NAME)) ..))</div><div>&nbsp;23: (CCL::NX1-TYPED-FORM (MAPCAR #'PATHNAME-NAME ..)</div><div>&nbsp;24: (CCL::NX1-FORM (MAPCAR #'PATHNAME-NAME ..)</div><div>&nbsp;25: (CCL::NX1-BLOCK (BLOCK SWANK:LIST-ALL-SYSTEMS-IN-CENTRAL-REGISTRY (MAPCAR #'PATHNAME-NAME (DELETE-DUPLICATES (LOOP # ) :TEST #'STRING=))) #&lt;CCL::LEXICAL-ENVIRONMENT #x3000411A5A5D&gt;)</div><div>&nbsp;26: (CCL::NX1-COMBINATION (BLOCK SWANK:LIST-ALL-SYSTEMS-IN-CENTRAL-REGISTRY (MAPCAR #'PATHNAME-NAME (DELETE-DUPLICATES (LOOP # ) :TEST #'STRING=))) #&lt;CCL::LEXICAL-ENVIRONMENT #x3000411A5A5D&gt;)</div><div>&nbsp;27: (CCL::NX1-TRANSFORMED-FORM (BLOCK SWANK:LIST-ALL-SYSTEMS-IN-CENTRAL-REGISTRY (MAPCAR #'PATHNAME-NAME (DELETE-DUPLICATES (LOOP # ) :TEST #'STRING=))) #&lt;CCL::LEXICAL-ENVIRONMENT #x3000411A5A5D&gt;)</div><div>&nbsp;28: (CCL::NX1-TYPED-FORM (BLOCK SWANK:LIST-ALL-SYSTEMS-IN-CENTRAL-REGISTRY (MAPCAR #'PATHNAME-NAME (DELETE-DUPLICATES (LOOP # ) :TEST #'STRING=))) #&lt;CCL::LEXICAL-ENVIRONMENT #x3000411A5A5D&gt;)</div><div>&nbsp;29: (CCL::NX1-FORM (BLOCK SWANK:LIST-ALL-SYSTEMS-IN-CENTRAL-REGISTRY (MAPCAR #'PATHNAME-NAME (DELETE-DUPLICATES (LOOP # ) :TEST #'STRING=))) #&lt;CCL::LEXICAL-ENVIRONMENT #x3000411A5A5D&gt;)</div><div>&nbsp;30: (CCL::NX1-ENV-BODY ((BLOCK SWANK:LIST-ALL-SYSTEMS-IN-CENTRAL-REGISTRY (MAPCAR #'PATHNAME-NAME (DELETE-DUPLICATES # :TEST #'STRING=)))) #&lt;CCL::LEXICAL-ENVIRONMENT #x3000411A5B0D&gt;)</div><div>&nbsp;31: (CCL::NX1-LAMBDA NIL ((BLOCK SWANK:LIST-ALL-SYSTEMS-IN-CENTRAL-REGISTRY ..)))))</div><div>&nbsp;32: (CCL::NX1-COMPILE-LAMBDA SWANK:LIST-ALL-SYSTEMS-IN-CENTRAL-REGISTRY (LAMBDA NIL ..)</div><div>&nbsp;33: (CCL::COMPILE-NAMED-FUNCTION (LAMBDA NIL ..)</div><div>&nbsp;34: (CCL::CHEAP-EVAL-FUNCTION SWANK:LIST-ALL-SYSTEMS-IN-CENTRAL-REGISTRY (LAMBDA NIL ..)</div><div>&nbsp;35: (CCL::CHEAP-EVAL-IN-ENVIRONMENT (CCL::%DEFUN (NFUNCTION SWANK:LIST-ALL-SYSTEMS-IN-CENTRAL-REGISTRY (LAMBDA NIL (DECLARE #) (BLOCK SWANK:LIST-ALL-SYSTEMS-IN-CENTRAL-REGISTRY #))) ..)</div><div>&nbsp;36: ((:INTERNAL CCL::PROGN-IN-ENV ..))</div><div>&nbsp;37: ((:INTERNAL CCL::PROGN-IN-ENV ..))</div><div>&nbsp;38: ((:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM))</div><div>&nbsp;39: (CCL::CALL-WITH-COMPILATION-UNIT #&lt;COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM) #x237926F&gt; :OVERRIDE NIL)</div><div>&nbsp;40: (CCL::LOAD-FROM-STREAM #&lt;BASIC-FILE-CHARACTER-INPUT-STREAM ("/Library/Application Support/Aquamacs Emacs/SLIME/contrib/swank-asdf.lisp"/6 ISO-8859-1) #x30004112654D&gt; NIL)</div><div>&nbsp;41: (CCL::%LOAD #P"/Library/Application Support/Aquamacs Emacs/SLIME/contrib/swank-asdf.lisp" NIL NIL :ERROR :DEFAULT)</div><div>&nbsp;42: (LOAD #P"/Library/Application Support/Aquamacs Emacs/SLIME/contrib/swank-asdf.lisp" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST :ERROR :EXTERNAL-FORMAT :DEFAULT)</div><div>&nbsp;43: (REQUIRE :SWANK-ASDF #P"/Library/Application Support/Aquamacs Emacs/SLIME/contrib/swank-asdf.lisp")</div><div>&nbsp;44: (SWANK:SWANK-REQUIRE (:SWANK-ASDF :SWANK-PACKAGE-FU :SWANK-FUZZY :SWANK-FANCY-INSPECTOR :SWANK-ARGLISTS) NIL)</div><div>&nbsp;45: (CCL::CALL-CHECK-REGS SWANK:SWANK-REQUIRE (:SWANK-ASDF :SWANK-PACKAGE-FU :SWANK-FUZZY :SWANK-FANCY-INSPECTOR :SWANK-ARGLISTS))</div><div>&nbsp;46: (SWANK::EVAL-FOR-EMACS (SWANK:SWANK-REQUIRE '(:SWANK-ASDF :SWANK-PACKAGE-FU :SWANK-FUZZY :SWANK-FANCY-INSPECTOR :SWANK-ARGLISTS)) "COMMON-LISP-USER" 2)</div><div>&nbsp;47: ((:INTERNAL SWANK::SPAWN-WORKER-THREAD))</div><div>&nbsp;48: (#&lt;Anonymous Function #x3000410119BF&gt; #&lt;Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x3000410C8FCF&gt; #&lt;Compiled-function (:INTERNAL SWANK::SPAWN-WORKER-THREAD) (Non-Global) &nbsp;#x30004108C42F&gt;)</div><div>&nbsp;49: (SWANK::CALL-WITH-BINDINGS NIL #&lt;COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::CALL-WITH-CONNECTION) #x3000411270FF&gt;)</div><div>&nbsp;50: (SWANK::CALL-WITH-CONNECTION #&lt;CONNECTION #x30004110628D&gt; #&lt;Compiled-function (:INTERNAL SWANK::SPAWN-WORKER-THREAD) (Non-Global) &nbsp;#x30004108C42F&gt;)</div><div>&nbsp;51: (SWANK::CALL-WITH-BINDINGS NIL #&lt;COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::SPAWN-WORKER-THREAD) #x30004112713F&gt;)</div><div>&nbsp;52: (#&lt;Anonymous Function #x300041020C0F&gt;)</div><div>&nbsp;53: (CCL::RUN-PROCESS-INITIAL-FORM #&lt;PROCESS worker(6) [Active] #x300041124F7D&gt; (#&lt;COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x300041124EEF&gt;))</div><div>&nbsp;54: ((:INTERNAL CCL::%PROCESS-PRESET-INTERNAL) #&lt;PROCESS worker(6) [Active] #x300041124F7D&gt; (#&lt;COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x300041124EEF&gt;))</div><div>&nbsp;55: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))</div><div><br></div></div><div><br></div><div>========</div><br><div><div>On 2009-10-23, at 11:12 AM, Philippe Sismondi wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div>I am having problems with slime, running openMCL (clozure common lisp &nbsp;<br>or "ccl") and Aquamacs. I am very new to lisp, having started with it &nbsp;</div></blockquote><br></div><div>&lt;snip...&gt;</div></body></html>