[Openmcl-devel] Problems with openMCL slime and Aquamacs (Mac OS X)

Philippe Sismondi psismondi at arqux.com
Fri Oct 23 21:03:52 UTC 2009


BTW, thanks for the quick responses, good people.

I updated ccl as suggested by R. Matthew Emerson. I am still getting  
the same problem.

I should emphasize that the problem is intermittent, from which I  
infer 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....

So I'm now running with ccl version:

	Version 1.3-r13097M


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.)

As requested by Mr. Rittweiler, here is a complete stack trace of the  
latest failure:

========


value 0 is not of the expected type CCL::CTYPE.
    [Condition of type TYPE-ERROR]

Restarts:
  0: [RETRY-LOAD] Retry loading #P"/Library/Application Support/ 
Aquamacs Emacs/SLIME/contrib/swank-asdf.lisp"
  1: [SKIP-LOAD] Skip loading #P"/Library/Application Support/Aquamacs  
Emacs/SLIME/contrib/swank-asdf.lisp"
  2: [LOAD-OTHER] Load other file instead of #P"/Library/Application  
Support/Aquamacs Emacs/SLIME/contrib/swank-asdf.lisp"
  3: [ABORT] Return to SLIME's top level.
  4: [ABORT-BREAK] Reset this thread
  5: [ABORT] Kill this thread

Backtrace:
   0: (CCL::CSUBTYPEP #<CONS-CTYPE CONS> 0)
   1: (CCL::NX1-CXR (CDR #:G19) #<CCL::LEXICAL-ENVIRONMENT  
#x30004136459D>)
   2: (CCL::NX1-COMBINATION (CDR #:G19) #<CCL::LEXICAL-ENVIRONMENT  
#x30004136459D>)
   3: (CCL::NX1-TRANSFORMED-FORM (CDR #:G19) #<CCL::LEXICAL- 
ENVIRONMENT #x30004136459D>)
   4: (CCL::NX1-TYPED-FORM (PROGN (CDR #:G19)) #<CCL::LEXICAL- 
ENVIRONMENT #x30004136459D>)
   5: (CCL::NX1-FORM (PROGN (CDR #:G19)) #<CCL::LEXICAL-ENVIRONMENT  
#x30004136459D>)
   6: (CCL::NX1-FORMLIST ((TAGBODY (GO #:G23) ..)))
   7: (CCL::NX1-PROGN-BODY ((TAGBODY (GO #:G23) ..)))
   8: (CCL::NX1-ENV-BODY ((TAGBODY (GO #:G23) ..)))
   9: (CCL::NX1-LET* (LET* ((#:G24 (DELETE-DUPLICATES # :TEST  
#'STRING=)) #:G20) ..)
  10: (CCL::NX1-COMBINATION (LET* ((#:G24 (DELETE-DUPLICATES # :TEST  
#'STRING=)) #:G20) ..)
  11: (CCL::NX1-TRANSFORMED-FORM (LET* ((#:G24 (DELETE-DUPLICATES  
# :TEST #'STRING=)) #:G20) ..)
  12: (CCL::NX1-TYPED-FORM (LET* ((#:G24 (DELETE-DUPLICATES # :TEST  
#'STRING=)) #:G20) ..)
  13: (CCL::NX1-FORM (LET* ((#:G24 (DELETE-DUPLICATES # :TEST  
#'STRING=)) #:G20) ..)
  14: (CCL::NX1-BLOCK (BLOCK NIL ..)
  15: (CCL::NX1-COMBINATION (BLOCK NIL ..)
  16: (CCL::NX1-TRANSFORMED-FORM (BLOCK NIL ..)
  17: (CCL::NX1-TYPED-FORM (DOLIST (#:G20 (DELETE-DUPLICATES (BLOCK  
NIL #) :TEST #'STRING=) (CDR #:G19)) (SETQ #1=#:G18 (SETF (CDR #1#)  
(LIST #)))) #<CCL::LEXICAL-ENVIRONMENT #x3000413650CD>)
  18: (CCL::NX1-FORM (DOLIST (#:G20 (DELETE-DUPLICATES (BLOCK NIL  
#) :TEST #'STRING=) (CDR #:G19)) (SETQ #1=#:G18 (SETF (CDR #1#) (LIST  
#)))) #<CCL::LEXICAL-ENVIRONMENT #x3000413650CD>)
  19: (CCL::NX1-ENV-BODY ((DOLIST (#:G20 (DELETE-DUPLICATES # :TEST  
#'STRING=) (CDR #:G19)) (SETQ #:G18 (SETF # #)))) #<CCL::LEXICAL- 
ENVIRONMENT #x30004136623D>)
  20: (CCL::NX1-LET* (LET* ((#:G18 (CONS NIL NIL)) (#:G19 #:G18)  
(#:G21 #'PATHNAME-NAME)) ..))
       Locals:
         #:G4726 = (LET* ((#:G18 (CONS NIL NIL)) (#:G19 #:G18) (#:G21  
#'PATHNAME-NAME)) ..))
         #:G4727 = #<CCL::LEXICAL-ENVIRONMENT #x3000411A59ED>
         #:ARGS4728 = #<CCL::DESTRUCTURE-STATE #x2378F7D>
         CCL::VARSPECS = ((#:G18 (CONS NIL NIL)) (#:G19 #:G18) (#:G21  
#'PATHNAME-NAME))
         #:REST4729 = ((DECLARE (DYNAMIC-EXTENT #:G18) (TYPE CONS  
#:G18 #:G19)) ..)))
         CCL::VALS = ((25650 (#:|nil|) (#:|nil|)) ..)))
         CCL::VAL = (8281 PATHNAME-NAME)
         CCL::VAR-BOUND-VARS = ((#<CCL::VAR #x3000411A4A7D> 0 .  
#<CCL::VAR #x3000411A4B9D>))
         CCL::*NX-BOUND-VARS* = (#<CCL::VAR #x3000411A595D>)
         CCL::OLD-ENV = #<CCL::LEXICAL-ENVIRONMENT #x3000411A59ED>
         CCL::*NX-NEW-P2DECLS* = 2162688
         CCL::*NX-INLINED-SELF* = T
         CCL::*NX-LEXICAL-ENVIRONMENT* = #<CCL::LEXICAL-ENVIRONMENT  
#x3000411A59ED>
         CCL::BODY = ((DOLIST (#:G20 (DELETE-DUPLICATES # :TEST  
#'STRING=) (CDR #:G19)) ..)))
         CCL::DECLS = ((DECLARE (DYNAMIC-EXTENT #:G18) (TYPE CONS  
#:G18 #:G19)))
  21: (CCL::NX1-COMBINATION (LET* ((#:G18 (CONS NIL NIL)) (#:G19  
#:G18) (#:G21 #'PATHNAME-NAME)) ..))
  22: (CCL::NX1-TRANSFORMED-FORM (LET* ((#:G18 (CONS NIL NIL)) (#:G19  
#:G18) (#:G21 #'PATHNAME-NAME)) ..))
  23: (CCL::NX1-TYPED-FORM (MAPCAR #'PATHNAME-NAME ..)
  24: (CCL::NX1-FORM (MAPCAR #'PATHNAME-NAME ..)
  25: (CCL::NX1-BLOCK (BLOCK SWANK:LIST-ALL-SYSTEMS-IN-CENTRAL- 
REGISTRY (MAPCAR #'PATHNAME-NAME (DELETE-DUPLICATES (LOOP # ) :TEST  
#'STRING=))) #<CCL::LEXICAL-ENVIRONMENT #x3000411A5A5D>)
  26: (CCL::NX1-COMBINATION (BLOCK SWANK:LIST-ALL-SYSTEMS-IN-CENTRAL- 
REGISTRY (MAPCAR #'PATHNAME-NAME (DELETE-DUPLICATES (LOOP # ) :TEST  
#'STRING=))) #<CCL::LEXICAL-ENVIRONMENT #x3000411A5A5D>)
  27: (CCL::NX1-TRANSFORMED-FORM (BLOCK SWANK:LIST-ALL-SYSTEMS-IN- 
CENTRAL-REGISTRY (MAPCAR #'PATHNAME-NAME (DELETE-DUPLICATES (LOOP  
# ) :TEST #'STRING=))) #<CCL::LEXICAL-ENVIRONMENT #x3000411A5A5D>)
  28: (CCL::NX1-TYPED-FORM (BLOCK SWANK:LIST-ALL-SYSTEMS-IN-CENTRAL- 
REGISTRY (MAPCAR #'PATHNAME-NAME (DELETE-DUPLICATES (LOOP # ) :TEST  
#'STRING=))) #<CCL::LEXICAL-ENVIRONMENT #x3000411A5A5D>)
  29: (CCL::NX1-FORM (BLOCK SWANK:LIST-ALL-SYSTEMS-IN-CENTRAL-REGISTRY  
(MAPCAR #'PATHNAME-NAME (DELETE-DUPLICATES (LOOP # ) :TEST  
#'STRING=))) #<CCL::LEXICAL-ENVIRONMENT #x3000411A5A5D>)
  30: (CCL::NX1-ENV-BODY ((BLOCK SWANK:LIST-ALL-SYSTEMS-IN-CENTRAL- 
REGISTRY (MAPCAR #'PATHNAME-NAME (DELETE-DUPLICATES # :TEST  
#'STRING=)))) #<CCL::LEXICAL-ENVIRONMENT #x3000411A5B0D>)
  31: (CCL::NX1-LAMBDA NIL ((BLOCK SWANK:LIST-ALL-SYSTEMS-IN-CENTRAL- 
REGISTRY ..)))))
  32: (CCL::NX1-COMPILE-LAMBDA SWANK:LIST-ALL-SYSTEMS-IN-CENTRAL- 
REGISTRY (LAMBDA NIL ..)
  33: (CCL::COMPILE-NAMED-FUNCTION (LAMBDA NIL ..)
  34: (CCL::CHEAP-EVAL-FUNCTION SWANK:LIST-ALL-SYSTEMS-IN-CENTRAL- 
REGISTRY (LAMBDA NIL ..)
  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 #))) ..)
  36: ((:INTERNAL CCL::PROGN-IN-ENV ..))
  37: ((:INTERNAL CCL::PROGN-IN-ENV ..))
  38: ((:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM- 
STREAM))
  39: (CCL::CALL-WITH-COMPILATION-UNIT #<COMPILED-LEXICAL-CLOSURE  
(:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM)  
#x237926F> :OVERRIDE NIL)
  40: (CCL::LOAD-FROM-STREAM #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/ 
Library/Application Support/Aquamacs Emacs/SLIME/contrib/swank- 
asdf.lisp"/6 ISO-8859-1) #x30004112654D> NIL)
  41: (CCL::%LOAD #P"/Library/Application Support/Aquamacs Emacs/SLIME/ 
contrib/swank-asdf.lisp" NIL NIL :ERROR :DEFAULT)
  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)
  43: (REQUIRE :SWANK-ASDF #P"/Library/Application Support/Aquamacs  
Emacs/SLIME/contrib/swank-asdf.lisp")
  44: (SWANK:SWANK-REQUIRE (:SWANK-ASDF :SWANK-PACKAGE-FU :SWANK- 
FUZZY :SWANK-FANCY-INSPECTOR :SWANK-ARGLISTS) NIL)
  45: (CCL::CALL-CHECK-REGS SWANK:SWANK-REQUIRE (:SWANK-ASDF :SWANK- 
PACKAGE-FU :SWANK-FUZZY :SWANK-FANCY-INSPECTOR :SWANK-ARGLISTS))
  46: (SWANK::EVAL-FOR-EMACS (SWANK:SWANK-REQUIRE '(:SWANK-ASDF :SWANK- 
PACKAGE-FU :SWANK-FUZZY :SWANK-FANCY-INSPECTOR :SWANK-ARGLISTS))  
"COMMON-LISP-USER" 2)
  47: ((:INTERNAL SWANK::SPAWN-WORKER-THREAD))
  48: (#<Anonymous Function #x3000410119BF> #<Compiled-function  
SWANK:SWANK-DEBUGGER-HOOK #x3000410C8FCF> #<Compiled-function  
(:INTERNAL SWANK::SPAWN-WORKER-THREAD) (Non-Global)  #x30004108C42F>)
  49: (SWANK::CALL-WITH-BINDINGS NIL #<COMPILED-LEXICAL-CLOSURE  
(:INTERNAL SWANK::CALL-WITH-CONNECTION) #x3000411270FF>)
  50: (SWANK::CALL-WITH-CONNECTION #<CONNECTION #x30004110628D>  
#<Compiled-function (:INTERNAL SWANK::SPAWN-WORKER-THREAD) (Non- 
Global)  #x30004108C42F>)
  51: (SWANK::CALL-WITH-BINDINGS NIL #<COMPILED-LEXICAL-CLOSURE  
(:INTERNAL SWANK::SPAWN-WORKER-THREAD) #x30004112713F>)
  52: (#<Anonymous Function #x300041020C0F>)
  53: (CCL::RUN-PROCESS-INITIAL-FORM #<PROCESS worker(6) [Active]  
#x300041124F7D> (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS- 
RUN-FUNCTION) #x300041124EEF>))
  54: ((:INTERNAL CCL::%PROCESS-PRESET-INTERNAL) #<PROCESS worker(6)  
[Active] #x300041124F7D> (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL:: 
%PROCESS-RUN-FUNCTION) #x300041124EEF>))
  55: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))


========

On 2009-10-23, at 11:12 AM, Philippe Sismondi wrote:

> I am having problems with slime, running openMCL (clozure common lisp
> or "ccl") and Aquamacs. I am very new to lisp, having started with it

<snip...>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.clozure.com/pipermail/openmcl-devel/attachments/20091023/170c1507/attachment.html>


More information about the Openmcl-devel mailing list