Hi!

Trying clpython from quick lisp, it fails with the following error.

Obviously, somebody forgot with-standard-io-syntax between format and intern...

; SLIME 2012-09-04 cl-user> (ql:quickload :clpython) To load "clpython": Load 1 ASDF system: clpython ; Loading "clpython" ;;; Compiling Python grammar for CL-Yacc... .................................................. [package clpython.lispy.stuff].................... [package clpython.module.array]................... [package clpython.module.binascii]................ [package clpython.module.cstringio]............... [package clpython.module.errno]................... [package clpython.module.exceptions].............. [package clpython.module.gc]...................... [package clpython.module.imp]..................... [package clpython.module.math].................... [package clpython.module.operator]................ [package clpython.module.posix]................... [package clpython.module._random]................. [package clpython.module.re]...................... [package clpython.module._socket]................. [package clpython.module.string].................. [package clpython.module.symbol].................. [package clpython.module.sys]..................... [package clpython.module.thread].................. [package clpython.module.time]...1

No such symbol in pkg clpython: py-< [Condition of type simple-condition]

Restarts: 0: [continue] Return from BREAK. 1: [retry-compile-file] Retry compiling #P"/Volumes/Data/pbourguignon/quicklisp/dists/quicklisp/software/clpython-20110730-git/lib/operator.lisp" 2: [skip-compile-file] Skip compiling #P"/Volumes/Data/pbourguignon/quicklisp/dists/quicklisp/software/clpython-20110730-git/lib/operator.lisp" 3: [retry] Retry compiling #<cl-source-file "clpython.lib" "lib" "operator">. 4: [accept] Continue, treating compiling #<cl-source-file "clpython.lib" "lib" "operator"> as having been successful. 5: [abort] Give up on "clpython" --more--

Backtrace: 0: (clpython.module.operator::sym->op #<Unknown Arguments>) 1: (#<Anonymous Function #x3020032FA5AF>) 2: (ccl::cheap-eval-in-environment (list* 'progn (loop clpython.module.operator::for (clpython.module.operator::m.. 3: (ccl::cheap-eval (list* 'progn (loop clpython.module.operator::for (clpython.module.operator::meth clpython.mo.. 4: (ccl::read-dispatch #<basic-file-character-input-stream ("/Volumes/Data/pbourguignon/quicklisp/dists/quicklisp.. 5: (ccl::%parse-expression #<basic-file-character-input-stream ("/Volumes/Data/pbourguignon/quicklisp/dists/quick.. 6: (ccl::%read-form #<basic-file-character-input-stream ("/Volumes/Data/pbourguignon/quicklisp/dists/quicklisp/so.. 7: (ccl::read-internal #<basic-file-character-input-stream ("/Volumes/Data/pbourguignon/quicklisp/dists/quicklisp.. 8: (ccl::read-recording-source #<basic-file-character-input-stream ("/Volumes/Data/pbourguignon/quicklisp/dists/q.. 9: (ccl::fcomp-read-loop "/Volumes/Data/pbourguignon/quicklisp/dists/quicklisp/software/clpython-20110730-git/lib.. 10: (ccl::fcomp-file "/Volumes/Data/pbourguignon/quicklisp/dists/quicklisp/software/clpython-20110730-git/lib/oper.. 11: (ccl::%compile-file "/Volumes/Data/pbourguignon/quicklisp/dists/quicklisp/software/clpython-20110730-git/lib/o.. 12: (compile-file #P"/Volumes/Data/pbourguignon/quicklisp/dists/quicklisp/software/clpython-20110730-git/lib/opera.. 13: (asdf:compile-file* #P"/Volumes/Data/pbourguignon/quicklisp/dists/quicklisp/software/clpython-20110730-git/lib.. 14: ((:internal (asdf:perform (asdf:compile-op asdf:cl-source-file)))) 15: (#<standard-method asdf::call-with-around-compile-hook (asdf:component t)> #<cl-source-file "clpython.lib" "li.. 16: (#<standard-method asdf:perform (asdf:compile-op asdf:cl-source-file)> #<compile-op (:verbose nil) #x3020025F8.. 17: (ccl::%%before-and-after-combined-method-dcode (nil #<standard-method asdf:perform (asdf:compile-op asdf:cl-so.. 18: (ccl::%%standard-combined-method-dcode ((#<standard-method asdf:perform :before (asdf:compile-op asdf:source-f.. 19: (nil #<Unknown Arguments>) 20: (nil #<Unknown Arguments>) 21: (#<standard-method asdf::perform-with-restarts (t t)> #<compile-op (:verbose nil) #x3020025F8C5D> #<cl-source-.. 22: (ccl::%call-next-method (nil #<standard-method asdf::perform-with-restarts (t t)> . 76455387)) 23: (#<standard-method asdf::perform-with-restarts :around (t t)> #<compile-op (:verbose nil) #x3020025F8C5D> #<cl.. 24: (ccl::%%standard-combined-method-dcode (#<standard-method asdf::perform-with-restarts :around (t t)> #<standar.. 25: (nil #<Unknown Arguments>) 26: ((:internal ccl::with-compilation-unit-body (asdf::perform-plan (list)))) 27: (ccl::call-with-compilation-unit #<ccl:compiled-lexical-closure (:internal ccl::with-compilation-unit-body (as.. 28: (#<standard-method asdf::perform-plan (list)> ((#1=#<load-op (:verbose nil) #x3020025EF12D> . #<cl-source-file.. 29: (ccl::%%check-keywords #(1 #() #<ccl:method-function asdf::perform-plan (list)>) 76455429) 30: (nil #<Unknown Arguments>) 31: ((:internal (asdf:operate (t t)))) 32: (asdf::call-with-system-definitions #<ccl:compiled-lexical-closure (:internal (asdf:operate (t t))) #x3020025D.. 33: (#<standard-method asdf:operate (t t)> asdf:load-op "clpython" :verbose nil) 34: (ccl::%%standard-combined-method-dcode ((#<standard-method asdf:operate :before (t t)>) nil #<standard-method .. 35: (nil #<Unknown Arguments>) 36: (asdf:oos asdf:load-op "clpython" :verbose nil) 37: ((:internal quicklisp-client::apply-load-strategy)) 38: (quicklisp-client::call-with-macroexpand-progress #<ccl:compiled-lexical-closure (:internal quicklisp-client::.. 39: (quicklisp-client::apply-load-strategy #<load-strategy "clpython" (1 asdf, 0 quicklisp)>) --more--