Custom Query (1030 matches)

given version "Version 1.3-RC1-r11719M (DarwinPPC32)", given a local asdf package in a unix file with pathname such as

/Development/Downloads/bordeaux-threads_latest.tar.gz

asdf-install fails to install the package. the step which attempts to extract the tar table-of-contents fails, as the filename escape character, #
, appears in the command string. a patch to installer.lisp#tar-arguments (​http://trac.clozure.com/openmcl/browser/trunk/source/tools/asdf-install/installer.lisp?rev=11304#L291) to delete the escape character, which allows the install to succeed, demonstrates the problem.

patch diff

Index: installer.lisp
===================================================================
--- installer.lisp      (revision 11787)
+++ installer.lisp      (working copy)
@@ -291,7 +291,7 @@
 (defun tar-arguments (source packagename)
   #-(or :win32 :mswindows :scl)
   (list "-C" (namestring (truename source))
-       "-xzvf" (namestring (truename packagename)))
+       "-xzvf" (remove #\\ (namestring (truename packagename))))
   #+(or :win32 :mswindows)
   (list "-l"
        "-c"

listener transcript

? (asdf-install:install "/Development/Downloads/bordeaux-threads_latest.tar.gz")
0> Calling (ASDF-INSTALL::INSTALL-LOCATION) 
Install where?
1) System-wide install: 
   System in /usr/local/asdf-install/site-systems/
   Files in /usr/local/asdf-install/site/ 
2) Personal installation: 
   System in /Users/janson/.asdf-install-dir/systems/
   Files in /Users/janson/.asdf-install-dir/site/ 
0) Abort installation.
 --> 1
<0 ASDF-INSTALL::INSTALL-LOCATION returned (#P"/usr/local/asdf-install/site/" #P"/usr/local/asdf-install/site-systems/" "System-wide install")
0> Calling (ASDF-INSTALL::LOCAL-ARCHIVE-P "/Development/Downloads/bordeaux-threads_latest.tar.gz") 
<0 ASDF-INSTALL::LOCAL-ARCHIVE-P returned #P"/Development/Downloads/bordeaux-threads_latest\\.tar.gz"
0> Calling (ASDF-INSTALL::INSTALL-PACKAGE #P"/usr/local/asdf-install/site/" #P"/usr/local/asdf-install/site-systems/" "/Development/Downloads/bordeaux-threads_latest.tar.gz") 
 1> Calling (ASDF-INSTALL::EXTRACT #P"/usr/local/asdf-install/site/" "/Development/Downloads/bordeaux-threads_latest.tar.gz") 
 <1 ASDF-INSTALL::EXTRACT returned "tar (child): /Development/Downloads/bordeaux-threads_latest\\\\.tar.gz: Cannot open: No such file or directory
tar (child): Error is not recoverable: exiting now
/usr/bin/tar: Child returned status 2
/usr/bin/tar: Error exit delayed from previous errors
"
<0 ASDF-INSTALL::INSTALL-PACKAGE returned NIL
NIL
? (pathname-name #P"/Development/Downloads/bordeaux-threads_latest\\.tar.gz")
"bordeaux-threads_latest.tar"
? (namestring #P"/Development/Downloads/bordeaux-threads_latest\\.tar.gz")
"/Development/Downloads/bordeaux-threads_latest\\.tar.gz"
? (truename #P"/Development/Downloads/bordeaux-threads_latest\\.tar.gz")
#P"/Development/Downloads/bordeaux-threads_latest\\.tar.gz"
? (truename #P"/Development/Downloads/bordeaux-threads_latest.tar.gz")
#P"/Development/Downloads/bordeaux-threads_latest\\.tar.gz"
? (truename #P"/Development/Downloads/bordeaux-\\threads_latest.tar.gz")
#P"/Development/Downloads/bordeaux-threads_latest\\.tar.gz"
? (namestring  (truename #P"/Development/Downloads/bordeaux-threads_latest.tar.gz"))
"/Development/Downloads/bordeaux-threads_latest\\.tar.gz"
? (find #\\ (namestring  (truename #P"/Development/Downloads/bordeaux-threads_latest.tar.gz")))
#\\

;;; load patched installer.lisp

? (load (compile-file "/Development/Applications/LISP/ccl-1.3/tools/asdf-install/installer.lisp"))
;Compiling "/Development/Applications/LISP/ccl-1.3/tools/asdf-install/installer.lisp"...
;Loading #P"/Development/Applications/LISP/ccl-1.3/tools/asdf-install/installer.dfsl"...
#P"/Development/Applications/LISP/ccl-1.3/tools/asdf-install/installer.dfsl"
? (asdf-install:install "/Development/Downloads/bordeaux-threads_latest.tar.gz")
0> Calling (ASDF-INSTALL::INSTALL-LOCATION) 
Install where?
1) System-wide install: 
   System in /usr/local/asdf-install/site-systems/
   Files in /usr/local/asdf-install/site/ 
2) Personal installation: 
   System in /Users/janson/.asdf-install-dir/systems/
   Files in /Users/janson/.asdf-install-dir/site/ 
0) Abort installation.
 --> 1
<0 ASDF-INSTALL::INSTALL-LOCATION returned (#P"/usr/local/asdf-install/site/" #P"/usr/local/asdf-install/site-systems/" "System-wide install")
0> Calling (ASDF-INSTALL::LOCAL-ARCHIVE-P "/Development/Downloads/bordeaux-threads_latest.tar.gz") 
<0 ASDF-INSTALL::LOCAL-ARCHIVE-P returned #P"/Development/Downloads/bordeaux-threads_latest\\.tar.gz"
0> Calling (ASDF-INSTALL::INSTALL-PACKAGE #P"/usr/local/asdf-install/site/" #P"/usr/local/asdf-install/site-systems/" "/Development/Downloads/bordeaux-threads_latest.tar.gz") 
 1> Calling (ASDF-INSTALL::EXTRACT #P"/usr/local/asdf-install/site/" "/Development/Downloads/bordeaux-threads_latest.tar.gz") 
 <1 ASDF-INSTALL::EXTRACT returned "bordeaux-threads_0.5.1/
bordeaux-threads_0.5.1/bordeaux-threads.asd
bordeaux-threads_0.5.1/LICENSE
bordeaux-threads_0.5.1/site/
bordeaux-threads_0.5.1/site/index.html
bordeaux-threads_0.5.1/site/style.css
bordeaux-threads_0.5.1/src/
bordeaux-threads_0.5.1/src/allegro.lisp
bordeaux-threads_0.5.1/src/armedbear.lisp
bordeaux-threads_0.5.1/src/bordeaux-threads.lisp
bordeaux-threads_0.5.1/src/cmu.lisp
bordeaux-threads_0.5.1/src/condition-variables.lisp
bordeaux-threads_0.5.1/src/corman.lisp
bordeaux-threads_0.5.1/src/default-implementations.lisp
bordeaux-threads_0.5.1/src/ecl.lisp
bordeaux-threads_0.5.1/src/lispworks.lisp
bordeaux-threads_0.5.1/src/mcl.lisp
bordeaux-threads_0.5.1/src/openmcl.lisp
bordeaux-threads_0.5.1/src/sbcl.lisp
bordeaux-threads_0.5.1/src/unsupported.lisp
bordeaux-threads_0.5.1/test/
bordeaux-threads_0.5.1/test/bordeaux-threads-test.lisp
"
"ln -s \"/usr/local/asdf-install/site/bordeaux-threads_0.5.1/bordeaux-threads.asd\" \"/usr/local/asdf-install/site-systems/bordeaux-threads.asd\""
;;; ASDF-INSTALL: Found system definition: /usr/local/asdf-install/site/bordeaux-threads_0.5.1/bordeaux-threads.asd
<0 ASDF-INSTALL::INSTALL-PACKAGE returned (#P"/usr/local/asdf-install/site/bordeaux-threads_0.5.1/bordeaux-threads.asd")
;;; ASDF-INSTALL: Loading system ASDF-INSTALL::|bordeaux-threads| via ASDF.
; loading system definition from /usr/local/asdf-install/site/bordeaux-threads_0.5.1/bordeaux-threads.asd into #<Package "ASDF0">
;Loading #P"/usr/local/asdf-install/site/bordeaux-threads_0.5.1/bordeaux-threads.asd"...
; registering #<SYSTEM BORDEAUX-THREADS #xA3A2A3E> as BORDEAUX-THREADS
; registering #<SYSTEM BORDEAUX-THREADS-TEST #xA3C305E> as BORDEAUX-THREADS-TEST
;Compiling "/usr/local/asdf-install/site/bordeaux-threads_0.5.1/src/bordeaux-threads.lisp"...
;Loading #P"/usr/local/asdf-install/site/bordeaux-threads_0.5.1/src/bordeaux-threads.dfsl"...
;Compiling "/usr/local/asdf-install/site/bordeaux-threads_0.5.1/src/openmcl.lisp"...
;Loading #P"/usr/local/asdf-install/site/bordeaux-threads_0.5.1/src/openmcl.dfsl"...
;Compiling "/usr/local/asdf-install/site/bordeaux-threads_0.5.1/src/default-implementations.lisp"...
;Loading #P"/usr/local/asdf-install/site/bordeaux-threads_0.5.1/src/default-implementations.dfsl"...
(ASDF-INSTALL::|bordeaux-threads|)
? 

the addition to number.lisp includes an error in the transcription from corkill's suggested changes ​http://dancorkill.home.comcast.net/~dancorkill/openmcl-inf.lisp, in that it uses double-float-positive-infinity twice. see http://trac.clozure.com/ccl/browser/trunk/source/lib/numbers.lisp?rev=10124#L119

also, the revision neglected the NAN constant definitions.

while testing clx, with ccl-1-4, i observed that it misinterprets type declarations. it appears that this is a change from ccl-1-1. the actual instance was in clx's buffer.lisp#write-sequence-card8.

? yoda:/Development/Source/production/Library/de/setf/graphics janson$ /Development/Applications/LISP/ccl-1-3/dppccl
;Loading #P"P-LIBRARY:net;common-lisp;asdf;asdf.lisp.newest"...
Welcome to Clozure Common Lisp Version 1.3-r11936  (DarwinPPC32)!
? (defun test-type (x)
        (declare (type (or null (function (t) t)) x))
        x)
TEST-TYPE
? (disassemble 'test-type)
  (TWNEI NARGS 4)
  (MFLR LOC-PC)
  (BLA .SPSAVECONTEXTVSP)
  (VPUSH ARG_Z)
  (LWZ ARG_Z 0 VSP)
  (BA .SPPOPJ)
? (test-type #'(lambda (x) x))
#<Anonymous Function #x87253D6>
? ^D
? ^D
? yoda:/Development/Source/production/Library/de/setf/graphics janson$ /Development/Applications/LISP/ccl-1-4/dppccl
;Loading #P"P-LIBRARY:net;common-lisp;asdf;asdf..newest"...
Welcome to Clozure Common Lisp Version 1.4-r13119  (DarwinPPC32)!
? (defun test-type (x)
        (declare (type (or null (function (t) t)) x))
        x)
TEST-TYPE
? (disassemble 'test-type)
  (TWNEI NARGS 4)
  (MFLR LOC-PC)
  (BLA .SPSAVECONTEXTVSP)
  (VPUSH ARG_Z)
  (LWZ ARG_Y 0 VSP)
  (LWZ ARG_Z '(OR NULL (FUNCTION (T) T)) FN)
  (LWZ TEMP3 'TYPEP FN)
  (SET-NARGS 2)
  (VPUSH ARG_Y)
  (LWZ TEMP2 6 TEMP3)
  (LWZ TEMP0 -2 TEMP2)
  (MTCTR TEMP0)
  (BCTRL)
  (CMPWI ARG_Z NIL)
  (LWZ ARG_Y 0 VSP)
  (LA VSP 4 VSP)
  (BNE L84)
  (LI ARG_X '157)
  (LWZ ARG_Z '(OR NULL (FUNCTION (T) T)) FN)
  (SET-NARGS 3)
  (BLA .SPKSIGNALERR)
L84 
  (LWZ ARG_Z 0 VSP)
  (BA .SPPOPJ)
? (test-type nil)
NIL
? (test-type #'(lambda (x) x))
> Error: Function types are not a legal argument to TYPEP:
>          (FUNCTION (T) T)
> While executing: CCL::%%TYPEP, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > :a

it is possible to suppress the check

? (defun test-type (x)
        (declare (optimize (speed 3) (safety 0)))
        (declare (type (or null (function (t) t)) x))
        x)
TEST-TYPE
? (disassemble 'test-type)
  (MFLR LOC-PC)
  (LWZ IMM0 44 RCONTEXT)
  (STWU SP -16 SP)
  (STW FN 4 SP)
  (STW LOC-PC 8 SP)
  (STW VSP 12 SP)
  (MR FN TEMP2)
  (TWLLT SP IMM0)
  (VPUSH ARG_Z)
  (LWZ ARG_Z 0 VSP)
  (LWZ LOC-PC 8 SP)
  (LWZ VSP 12 SP)
  (LWZ FN 4 SP)
  (MTLR LOC-PC)
  (LA SP 16 SP)
  (BLR)
? (test-type #'(lambda (x) x))
#<Anonymous Function #x8890F76>
? 

with extreme measures. is there some intermediate way to control this?