>>>>> "F" == Faré <fah...@gmail.com> writes:
F> Maybe you mean cl-launch -ip '(+ 1 1)'
It's the same (as it should by reading the documentation), see below for
complete output.
Additionally, I was hit by another cl-asdf problem when starting stumpwm
(1:20110819.gitca08e08-2):
% stumpwm
This is SBCL 1.0.57.0.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.
SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses. See the CREDITS and COPYING files in the
distribution for more information.
debugger invoked on a SB-INT:SIMPLE-FILE-ERROR in thread
#<THREAD "main thread" RUNNING {1002979353}>:
failed to find the TRUENAME of
/usr/share/common-lisp/source/cl-asdf/build/asdf.lisp:
No such file or directory
Indeed, /usr/share/common-lisp/source/cl-asdf/build/ exists but is
empty. I'm not sure whether this is a problem of the cl-asdf or the
stumpwm package, but it would be nice if it could be handled some way as
it's a bit annoying when one upgrades cl-asdf and then can't log in his
desktop.
Here is the cl-launch output:
% cl-launch -ip '(+ 1 1)'
;
; compilation unit aborted
; caught 1 fatal ERROR condition
STYLE-WARNING: redefining UIOP/UTILITY:DEFGENERIC* in DEFMACRO
STYLE-WARNING: redefining UIOP/UTILITY:DEFUN* in DEFMACRO
STYLE-WARNING: redefining UIOP/UTILITY:WHILE-COLLECTING in DEFMACRO
STYLE-WARNING: redefining UIOP/UTILITY:APPENDF in DEFMACRO
STYLE-WARNING: redefining UIOP/UTILITY:LENGTH=N-P in DEFUN
STYLE-WARNING: redefining UIOP/UTILITY:STRCAT in DEFUN
STYLE-WARNING: redefining UIOP/UTILITY:FIRST-CHAR in DEFUN
STYLE-WARNING: redefining UIOP/UTILITY:LAST-CHAR in DEFUN
STYLE-WARNING: redefining UIOP/UTILITY:SPLIT-STRING in DEFUN
STYLE-WARNING: redefining UIOP/UTILITY:ENSURE-FUNCTION in DEFUN
STYLE-WARNING: redefining UIOP/UTILITY:PARSE-VERSION in DEFUN
STYLE-WARNING: redefining UIOP/OS:FEATUREP in DEFUN
STYLE-WARNING: redefining UIOP/OS:OS-UNIX-P in DEFUN
STYLE-WARNING: redefining UIOP/OS:OS-WINDOWS-P in DEFUN
STYLE-WARNING: redefining UIOP/OS:GETENV in DEFUN
STYLE-WARNING: redefining UIOP/OS:IMPLEMENTATION-TYPE in DEFUN
STYLE-WARNING: redefining UIOP/OS:OPERATING-SYSTEM in DEFUN
STYLE-WARNING: redefining UIOP/OS:ARCHITECTURE in DEFUN
STYLE-WARNING: redefining UIOP/OS:LISP-VERSION-STRING in DEFUN
STYLE-WARNING: redefining UIOP/OS:IMPLEMENTATION-IDENTIFIER in DEFUN
STYLE-WARNING: redefining UIOP/OS:HOSTNAME in DEFUN
STYLE-WARNING: redefining UIOP/OS:READ-NULL-TERMINATED-STRING in DEFUN
STYLE-WARNING: redefining UIOP/OS:READ-LITTLE-ENDIAN in DEFUN
STYLE-WARNING: redefining UIOP/OS:PARSE-FILE-LOCATION-INFO in DEFUN
STYLE-WARNING: redefining UIOP/OS:PARSE-WINDOWS-SHORTCUT in DEFUN
STYLE-WARNING:
redefining UIOP/PATHNAME:NORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN
STYLE-WARNING:
redefining UIOP/PATHNAME:MERGE-PATHNAME-DIRECTORY-COMPONENTS in DEFUN
STYLE-WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-COMPONENT-LOGICAL in DEFUN
STYLE-WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-LOGICAL in DEFUN
STYLE-WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAMES* in DEFUN
STYLE-WARNING: redefining UIOP/PATHNAME:ABSOLUTE-PATHNAME-P in DEFUN
STYLE-WARNING: redefining UIOP/PATHNAME:PATHNAME-DIRECTORY-PATHNAME in DEFUN
STYLE-WARNING:
redefining UIOP/PATHNAME:PATHNAME-PARENT-DIRECTORY-PATHNAME in DEFUN
STYLE-WARNING: redefining UIOP/PATHNAME:DIRECTORY-PATHNAME-P in DEFUN
STYLE-WARNING: redefining UIOP/PATHNAME:ENSURE-DIRECTORY-PATHNAME in DEFUN
STYLE-WARNING: redefining UIOP/PATHNAME:SPLIT-NAME-TYPE in DEFUN
STYLE-WARNING: redefining UIOP/PATHNAME:SUBPATHNAME in DEFUN
STYLE-WARNING: redefining UIOP/PATHNAME:SUBPATHNAME* in DEFUN
STYLE-WARNING: redefining UIOP/PATHNAME:PATHNAME-ROOT in DEFUN
STYLE-WARNING: redefining UIOP/PATHNAME:WILDEN in DEFUN
STYLE-WARNING: redefining UIOP/PATHNAME:RELATIVIZE-PATHNAME-DIRECTORY in DEFUN
STYLE-WARNING: redefining UIOP/PATHNAME:DIRECTORY-SEPARATOR-FOR-HOST in DEFUN
STYLE-WARNING:
redefining UIOP/PATHNAME:DIRECTORIZE-PATHNAME-HOST-DEVICE in DEFUN
STYLE-WARNING: redefining UIOP/FILESYSTEM:SAFE-FILE-WRITE-DATE in DEFUN
STYLE-WARNING: redefining UIOP/FILESYSTEM:PROBE-FILE* in DEFUN
STYLE-WARNING: redefining UIOP/FILESYSTEM:DIRECTORY* in DEFUN
STYLE-WARNING:
redefining UIOP/FILESYSTEM:FILTER-LOGICAL-DIRECTORY-RESULTS in DEFUN
STYLE-WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-FILES in DEFUN
STYLE-WARNING: redefining UIOP/FILESYSTEM:SUBDIRECTORIES in DEFUN
STYLE-WARNING: redefining UIOP/FILESYSTEM:COLLECT-SUB*DIRECTORIES in DEFUN
STYLE-WARNING: redefining UIOP/FILESYSTEM:TRUENAMIZE in DEFUN
STYLE-WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS in DEFUN
STYLE-WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS* in DEFUN
STYLE-WARNING: redefining UIOP/FILESYSTEM:INTER-DIRECTORY-SEPARATOR in DEFUN
STYLE-WARNING: redefining UIOP/FILESYSTEM:ENSURE-ALL-DIRECTORIES-EXIST in DEFUN
STYLE-WARNING: redefining UIOP/FILESYSTEM:DELETE-FILE-IF-EXISTS in DEFUN
STYLE-WARNING: redefining UIOP/STREAM:ALWAYS-DEFAULT-ENCODING in DEFUN
STYLE-WARNING: redefining UIOP/STREAM:DETECT-ENCODING in DEFUN
STYLE-WARNING: redefining UIOP/STREAM:DEFAULT-ENCODING-EXTERNAL-FORMAT in DEFUN
STYLE-WARNING: redefining UIOP/STREAM:ENCODING-EXTERNAL-FORMAT in DEFUN
STYLE-WARNING: redefining UIOP/STREAM:READ-FILE-FORMS in DEFUN
STYLE-WARNING: redefining UIOP/STREAM:TMPIZE-PATHNAME in DEFUN
STYLE-WARNING: redefining UIOP/LISP-BUILD:LOAD-PATHNAME in DEFUN
STYLE-WARNING: redefining UIOP/LISP-BUILD:LISPIZE-PATHNAME in DEFUN
STYLE-WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-PATHNAME* in DEFUN
STYLE-WARNING:
redefining UIOP/CONFIGURATION:USER-CONFIGURATION-DIRECTORIES in DEFUN
STYLE-WARNING:
redefining UIOP/CONFIGURATION:SYSTEM-CONFIGURATION-DIRECTORIES in DEFUN
STYLE-WARNING: redefining UIOP/CONFIGURATION:IN-FIRST-DIRECTORY in DEFUN
STYLE-WARNING:
redefining UIOP/CONFIGURATION:IN-USER-CONFIGURATION-DIRECTORY in DEFUN
STYLE-WARNING:
redefining UIOP/CONFIGURATION:IN-SYSTEM-CONFIGURATION-DIRECTORY in DEFUN
STYLE-WARNING:
redefining UIOP/CONFIGURATION:CONFIGURATION-INHERITANCE-DIRECTIVE-P in DEFUN
STYLE-WARNING: redefining UIOP/CONFIGURATION:REPORT-INVALID-FORM in DEFUN
STYLE-WARNING:
redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FORM in DEFUN
STYLE-WARNING:
redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FILE in DEFUN
STYLE-WARNING:
redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-DIRECTORY in DEFUN
STYLE-WARNING:
new FTYPE proclamation for RESOLVE-LOCATION
(FUNCTION
(T &KEY (:DIRECTORY (MEMBER T NIL)) (:WILDEN (MEMBER T NIL))
(:ENSURE-DIRECTORY (MEMBER T NIL)))
*)
does not match the old FTYPE proclamation:
(FUNCTION (T &KEY (:DIRECTORY (MEMBER T NIL)) (:WILDEN (MEMBER T NIL)))
(VALUES (OR NULL PATHNAME) &OPTIONAL))
STYLE-WARNING: redefining UIOP/CONFIGURATION:LOCATION-DESIGNATOR-P in DEFUN
STYLE-WARNING: redefining UIOP/CONFIGURATION:LOCATION-FUNCTION-P in DEFUN
STYLE-WARNING: redefining UIOP/CONFIGURATION:CLEAR-CONFIGURATION in DEFUN
STYLE-WARNING: redefining UIOP/BACKWARD-DRIVER:COERCE-PATHNAME in DEFUN
STYLE-WARNING:
redefining UIOP/PATHNAME:COMPONENT-NAME-TO-PATHNAME-COMPONENTS in DEFUN
unhandled SB-EXT:NAME-CONFLICT in thread #<SB-THREAD:THREAD
"main thread" RUNNING
{1002979B53}>:
USE-PACKAGE #<PACKAGE "UIOP/DRIVER"> causes name-conflicts in
#<PACKAGE "CL-LAUNCH"> between the following symbols:
ASDF:FIND-SYMBOL*, UIOP/PACKAGE:FIND-SYMBOL*
See also:
The ANSI Standard, Section 11.1.1.2.5
0: (SB-DEBUG::MAP-BACKTRACE
#<CLOSURE (LAMBDA # :IN SB-DEBUG:BACKTRACE) {1005DB3DDB}>
:START
0
:COUNT
128)
1: (SB-DEBUG:BACKTRACE
128
#<SYNONYM-STREAM :SYMBOL SB-SYS:*STDERR* {1000169AE3}>)
2: (SB-DEBUG::DEBUGGER-DISABLED-HOOK
#<SB-EXT:NAME-CONFLICT {1005DAF6C3}>
#<unavailable argument>)
3: (SB-DEBUG::RUN-HOOK
SB-EXT:*INVOKE-DEBUGGER-HOOK*
#<SB-EXT:NAME-CONFLICT {1005DAF6C3}>)
4: (INVOKE-DEBUGGER #<SB-EXT:NAME-CONFLICT {1005DAF6C3}>)
5: (ERROR #<SB-EXT:NAME-CONFLICT {1005DAF6C3}>)
6: (SB-EXT:NAME-CONFLICT
#<PACKAGE "CL-LAUNCH">
USE-PACKAGE
#<PACKAGE "UIOP/DRIVER">
FIND-SYMBOL*
UIOP/PACKAGE:FIND-SYMBOL*)
7: ((FLET SB-IMPL::ITERATE-OVER-HASH-TABLE :IN USE-PACKAGE)
#<SB-IMPL::PACKAGE-HASHTABLE :SIZE 230 :FREE 48 :DELETED 0>
NIL)
8: ((FLET SB-IMPL::THUNK :IN USE-PACKAGE))
9: ((FLET #:WITHOUT-INTERRUPTS-BODY-89240 :IN
SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
10: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK
#<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN
SB-IMPL::CALL-WITH-PACKAGE-GRAPH)
{7FFFF6D3E87B}>
#<SB-THREAD:MUTEX "Package Graph Lock"
owner: #<SB-THREAD:THREAD "main thread" RUNNING {1002979B53}>>)
11: (SB-IMPL::CALL-WITH-PACKAGE-GRAPH
#<CLOSURE (FLET SB-IMPL::THUNK :IN USE-PACKAGE) {7FFFF6D3E8DB}>)
12: (USE-PACKAGE
(#<PACKAGE "COMMON-LISP"> #<PACKAGE "UIOP/DRIVER"> #<PACKAGE "ASDF">)
#<PACKAGE "CL-LAUNCH">)
13: (SB-IMPL::UPDATE-PACKAGE
#<PACKAGE "CL-LAUNCH">
NIL
#S(SB-C:DEFINITION-SOURCE-LOCATION
:NAMESTRING "/usr/bin/cl-launch"
:TOPLEVEL-FORM-NUMBER NIL
:PLIST NIL)
NIL
NIL
(#<PACKAGE "COMMON-LISP"> #<PACKAGE "UIOP/DRIVER"> #<PACKAGE "ASDF">)
NIL
NIL
("COMPILE-AND-LOAD-FILE")
("CL-LAUNCH")
NIL
NIL)
14: ((FLET #:WITHOUT-INTERRUPTS-BODY-89240 :IN
SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
15: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK
#<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN
SB-IMPL::CALL-WITH-PACKAGE-GRAPH)
{7FFFF6D3ECBB}>
#<SB-THREAD:MUTEX "Package Graph Lock"
owner: #<SB-THREAD:THREAD "main thread" RUNNING {1002979B53}>>)
16: (SB-IMPL::CALL-WITH-PACKAGE-GRAPH
#<CLOSURE (FLET SB-IMPL::THUNK :IN SB-IMPL::%DEFPACKAGE) {7FFFF6D3ED1B}>)
17: (SB-IMPL::%DEFPACKAGE
"CL-LAUNCH"
NIL
NIL
NIL
NIL
("COMMON-LISP" "ASDF/DRIVER" "ASDF")
NIL
NIL
("COMPILE-AND-LOAD-FILE")
("CL-LAUNCH")
NIL
NIL
#S(SB-C:DEFINITION-SOURCE-LOCATION
:NAMESTRING "/usr/bin/cl-launch"
:TOPLEVEL-FORM-NUMBER NIL
:PLIST NIL))
18: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(SB-IMPL::%DEFPACKAGE #1="CL-LAUNCH" 'NIL 'NIL 'NIL 'NIL
'("COMMON-LISP" "ASDF/DRIVER" "ASDF") 'NIL 'NIL
'("COMPILE-AND-LOAD-FILE") '(#1#) 'NIL 'NIL
(SB-C:SOURCE-LOCATION))
#<NULL-LEXENV>)
19: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(DEFPACKAGE :CL-LAUNCH
(:USE :COMMON-LISP :ASDF/DRIVER :ASDF)
(:EXPORT #:COMPILE-AND-LOAD-FILE))
#<NULL-LEXENV>)
20: (SB-IMPL::SIMPLE-EVAL-PROGN-BODY
((IGNORE-ERRORS
(PUSHNEW COMMON-LISP-USER::*ASDF-DIRECTORY-PATHNAME* *CENTRAL-REGISTRY*)
(HANDLER-BIND ((WARNING #'MUFFLE-WARNING))
(OPERATE 'LOAD-OP :ASDF :VERBOSE NIL)))
(UNLESS (MEMBER :ASDF3 *FEATURES*)
(UNLESS (VERSION-SATISFIES (ASDF-VERSION) "2.15")
(ERROR "CL-Launch requires ASDF 2.015 or later"))
(LOAD-SYSTEM :ASDF-DRIVER))
(DEFPACKAGE :CL-LAUNCH
(:USE :COMMON-LISP :ASDF/DRIVER :ASDF)
(:EXPORT #:COMPILE-AND-LOAD-FILE))
(IN-PACKAGE :CL-LAUNCH))
#<NULL-LEXENV>)
21: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
(IGNORE-ERRORS
(PUSHNEW COMMON-LISP-USER::*ASDF-DIRECTORY-PATHNAME*
*CENTRAL-REGISTRY*)
(HANDLER-BIND ((WARNING #'MUFFLE-WARNING))
(OPERATE 'LOAD-OP :ASDF :VERBOSE NIL)))
(UNLESS (MEMBER :ASDF3 *FEATURES*)
(UNLESS (VERSION-SATISFIES (ASDF-VERSION) "2.15")
(ERROR "CL-Launch requires ASDF 2.015 or later"))
(LOAD-SYSTEM :ASDF-DRIVER))
(DEFPACKAGE :CL-LAUNCH
(:USE :COMMON-LISP :ASDF/DRIVER :ASDF)
(:EXPORT #:COMPILE-AND-LOAD-FILE))
(IN-PACKAGE :CL-LAUNCH))
#<NULL-LEXENV>)
22: (SB-EXT:EVAL-TLF
(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
(IGNORE-ERRORS
(PUSHNEW COMMON-LISP-USER::*ASDF-DIRECTORY-PATHNAME*
*CENTRAL-REGISTRY*)
(HANDLER-BIND ((WARNING #'MUFFLE-WARNING))
(OPERATE 'LOAD-OP :ASDF :VERBOSE NIL)))
(UNLESS (MEMBER :ASDF3 *FEATURES*)
(UNLESS (VERSION-SATISFIES (ASDF-VERSION) "2.15")
(ERROR "CL-Launch requires ASDF 2.015 or later"))
(LOAD-SYSTEM :ASDF-DRIVER))
(DEFPACKAGE :CL-LAUNCH
(:USE :COMMON-LISP :ASDF/DRIVER :ASDF)
(:EXPORT #:COMPILE-AND-LOAD-FILE))
(IN-PACKAGE :CL-LAUNCH))
8
#<NULL-LEXENV>)
23: ((FLET SB-FASL::EVAL-FORM :IN SB-INT:LOAD-AS-SOURCE)
(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
(IGNORE-ERRORS
(PUSHNEW COMMON-LISP-USER::*ASDF-DIRECTORY-PATHNAME*
*CENTRAL-REGISTRY*)
(HANDLER-BIND ((WARNING #'MUFFLE-WARNING))
(OPERATE 'LOAD-OP :ASDF :VERBOSE NIL)))
(UNLESS (MEMBER :ASDF3 *FEATURES*)
(UNLESS (VERSION-SATISFIES (ASDF-VERSION) "2.15")
(ERROR "CL-Launch requires ASDF 2.015 or later"))
(LOAD-SYSTEM :ASDF-DRIVER))
(DEFPACKAGE :CL-LAUNCH
(:USE :COMMON-LISP :ASDF/DRIVER :ASDF)
(:EXPORT #:COMPILE-AND-LOAD-FILE))
(IN-PACKAGE :CL-LAUNCH))
8)
24: (SB-INT:LOAD-AS-SOURCE
#<SB-SYS:FD-STREAM for "file /usr/bin/cl-launch" {10029BEA83}>
:VERBOSE
NIL
:PRINT
NIL
:CONTEXT
"loading")
25: ((FLET SB-FASL::LOAD-STREAM :IN LOAD)
#<SB-SYS:FD-STREAM for "file /usr/bin/cl-launch" {10029BEA83}>
NIL)
26: (LOAD
"/usr/bin/cl-launch"
:VERBOSE
NIL
:PRINT
NIL
:IF-DOES-NOT-EXIST
T
:EXTERNAL-FORMAT
:DEFAULT)
27: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(LOAD "/usr/bin/cl-launch" :VERBOSE NIL :PRINT NIL)
#<NULL-LEXENV>)
28: (SB-IMPL::SIMPLE-EVAL-PROGN-BODY
((SET-DISPATCH-MACRO-CHARACTER #\# #\!
(LAMBDA (STREAM CHAR SB-DEBUG:ARG)
(DECLARE (IGNORE CHAR SB-DEBUG:ARG))
(VALUES (READ-LINE STREAM))))
(LOAD "/usr/bin/cl-launch" :VERBOSE NIL :PRINT NIL)
(FUNCALL (INTERN (STRING :RUN) :CL-LAUNCH) :INIT
"(princ(progn (+ 1 1)))(terpri)"))
#<NULL-LEXENV>)
29: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(PROGN
(SET-DISPATCH-MACRO-CHARACTER #\# #\!
(LAMBDA (STREAM CHAR SB-DEBUG:ARG)
(DECLARE (IGNORE CHAR SB-DEBUG:ARG))
(VALUES (READ-LINE STREAM))))
(LOAD "/usr/bin/cl-launch" :VERBOSE NIL :PRINT NIL)
(FUNCALL (INTERN (STRING :RUN) :CL-LAUNCH) :INIT
"(princ(progn (+ 1 1)))(terpri)"))
#<NULL-LEXENV>)
30: (EVAL
(PROGN
(SET-DISPATCH-MACRO-CHARACTER #\# #\!
(LAMBDA (STREAM CHAR SB-DEBUG:ARG)
(DECLARE (IGNORE CHAR SB-DEBUG:ARG))
(VALUES (READ-LINE STREAM))))
(LOAD "/usr/bin/cl-launch" :VERBOSE NIL :PRINT NIL)
(FUNCALL (INTERN (STRING :RUN) :CL-LAUNCH) :INIT
"(princ(progn (+ 1 1)))(terpri)")))
31: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS
((:EVAL
. "(progn(set-dispatch-macro-character #\\# #\\! (lambda(stream char
arg)(declare(ignore char arg))(values(read-line stream))))(load
\"/usr/bin/cl-launch\" :verbose nil :print nil)
(funcall(intern(string :run):cl-launch) :init \"(princ(progn (+ 1
1)))(terpri)\"))")))
32: (SB-IMPL::TOPLEVEL-INIT)
33: ((FLET #:WITHOUT-INTERRUPTS-BODY-236916 :IN SB-EXT:SAVE-LISP-AND-DIE))
34: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE))
unhandled condition in --disable-debugger mode, quitting
_______________________________________________
pkg-common-lisp-devel mailing list
pkg-common-lisp-devel@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-common-lisp-devel
