[Ecls-list] To evaluate or not to evaluate?

[Pascal J. Bourguignon]

Loading iolib, (and several other systems such as io.multiplex, etc)
in ECL signals the following error.   

ASDF2 does not evaluate the :pathname argument in DEFSYSTEM forms, but
it seems these systems expect it to be evaluated.



Error while trying to load definition for system iolib from
pathname LISP:SITE-SYSTEMS;IOLIB.ASD.NEWEST:
In function PATHNAME, the value of the only argument is
  (MERGE-PATHNAMES
   (MAKE-PATHNAME :DIRECTORY '(:RELATIVE "iolib"))
   *LOAD-TRUENAME*)
which is not of the expected type (OR FILE-STREAM
                                      STRING
                                      PATHNAME)
   [Condition of type ASDF:LOAD-SYSTEM-DEFINITION-ERROR]

Restarts:
 0: [RETRY] Retry SLIME REPL evaluation request.
 1: [*PROCESS-INPUT] Continue reading input.
 2: [ABORT] Return to SLIME's top level.
 3: [CLOSE-CONNECTION] Close SLIME connection.
 4: [RESTART-TOPLEVEL] Go back to Top-Level REPL.

Backtrace:
  0: DEBUG-IN-EMACS
  1: INVOKE-SLIME-DEBUGGER
  2: G826
  3: CALL-WITH-DEBUGGER-HOOK
  4: SWANK-DEBUGGER-HOOK
  5: #<bytecompiled-function 0000000001fb30f0>
  6: PATHNAME
  7: #<bytecompiled-function MERGE-PATHNAMES*>
      Locals:
        ASDF::SPECIFIED = (MERGE-PATHNAMES (MAKE-PATHNAME :DIRECTORY '(:RELATIVE "iolib")) ..)
        ASDF::DEFAULTS#1 = #P"/home/pjb/firms/medicalis/src/mdi/subprojects/dependencies/lisp/site/iol..
  8: #<bytecompiled-function DETERMINE-SYSTEM-PATHNAME>
      Locals:
        PATHNAME = (MERGE-PATHNAMES (MAKE-PATHNAME :DIRECTORY '(:RELATIVE "iolib")) ..)
        ASDF::PATHNAME-SUPPLIED-P#1 = T
        ASDF::FILE-PATHNAME#2 = #P"/home/pjb/firms/medicalis/src/mdi/subprojects/dependencies/lisp/site/iol..
        ASDF::DIRECTORY-PATHNAME#3 = #P"/home/pjb/firms/medicalis/src/mdi/subprojects/dependencies/lisp/site/iol..
  9: #<bytecompiled-function DEFSYSTEM>
      Locals:
        #:G842 = 
        #:G841#1 = (NIL)
        ASDF::NAME#2 = :IOLIB
        ASDF::OPTIONS#3 = 
        #:G851#4 = 
        #:G852#5 = 
        #:G853#6 = (MERGE-PATHNAMES (MAKE-PATHNAME :DIRECTORY '(:RELATIVE "iolib")) ..)
        PATHNAME#7 = (MERGE-PATHNAMES (MAKE-PATHNAME :DIRECTORY '(:RELATIVE "iolib")) ..)
        ASDF::PATHNAME-ARG-P#8 = T
        #:G854#9 = NIL
        CLASS#10 = ASDF:SYSTEM
        #:G855#11 = NIL
        ASDF::DEFSYSTEM-DEPENDS-ON#12 = NIL
        ASDF::COMPONENT-OPTIONS#13 = 
 10: #<bytecompiled-function FIND-SYSTEM>
 11: #<bytecompiled-function OPERATE>
 12: #<bytecompiled-function 0000000002959960>
 13: #<bytecompiled-function ASDF-LOAD>
 14: #<bytecompiled-function BYTECODES>
 15: EVAL-REGION
 16: G769
 17: TRACK-PACKAGE
 18: G768
 19: CALL-WITH-RETRY-RESTART
 20: G767
 21: CALL-WITH-BUFFER-SYNTAX
 22: REPL-EVAL
 23: LISTENER-EVAL
 24: #<bytecompiled-function BYTECODES>
 25: EVAL-FOR-EMACS
 26: PROCESS-REQUESTS
 27: G291
 28: HANDLE-REQUESTS
 29: G486
 30: CALL-WITH-BINDINGS
 31: REPL-INPUT-STREAM-READ
 32: G478
 33: G82
 34: CALL-WITH-LOCK-HELD
 35: STREAM-READ-CHAR
 36: SIMPLE-REPL
 37: G440
 38: G433
 39: CALL-WITH-USER-BREAK-HANDLER
 40: G430
 41: CALL-WITH-DEBUGGER-HOOK
 42: G466
 43: CALL-WITH-BINDINGS
 --more--


-- 
__Pascal Bourguignon__                     http://www.informatimago.com/