Loading TODO +4 −0 Original line number Diff line number Diff line Loading @@ -120,6 +120,10 @@ :name nil :type nil) fails to handle the logical-pathname-ness of ASDFTEST. *** `#5(1 ,@`(2 3)))` returns #(1 2 3), rather than #(1 2 3 2 3 2 3 2 3) or even better #(1 2 3 3 3). *** XCL recognizes :unspecific for a pathname type, but prints the namestring with a dot separator! (make-pathname :name "foo" :type :unspecific) ==> #P"foo." If bug is ever fixed, upgrade *unspecific-pathname-type* in uiop/pathname. ** GCL is almost working again; but implementation bugs remain. See November 2013 discussion on gcl-devel. Loading bundle.lisp +3 −1 Original line number Diff line number Diff line Loading @@ -184,6 +184,7 @@ itself.")) ;; operation on a system and its dependencies (operation-original-initargs instance)))) (defmethod bundle-op-build-args :around ((o no-ld-flags-op)) #+xcl (declare (ignorable o)) (let ((args (call-next-method))) (remf args :ld-flags) args)) Loading Loading @@ -418,6 +419,7 @@ itself.")) ;; operation on a system and its dependencies (perform-lisp-load-fasl o s)) (defmethod component-depends-on ((o load-fasl-op) (s precompiled-system)) #+xcl (declare (ignorable o)) `((load-op ,s) ,@(call-next-method)))) #| ;; Example use: Loading plan.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -384,7 +384,6 @@ the action of OPERATION on COMPONENT in the PLAN")) (when (action-planned-p new-status) (push (cons o c) (plan-actions-r p))))) ;;;; high-level interface: traverse, perform-plan, plan-operates-on-p (with-upgradability () (defgeneric make-plan (plan-class operation component &key &allow-other-keys) Loading @@ -405,6 +404,7 @@ the action of OPERATION on COMPONENT in the PLAN")) plan)) (defmethod perform-plan :around ((plan t) &key) #+xcl (declare (ignorable plan)) (let ((*package* *package*) (*readtable* *readtable*)) (with-compilation-unit () ;; backward-compatibility. Loading uiop/pathname.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -91,8 +91,8 @@ by the underlying implementation's MAKE-PATHNAME and other primitives" ;; See CLHS make-pathname and 19.2.2.2.3. ;; This will be :unspecific if supported, or NIL if not. (defparameter *unspecific-pathname-type* #+(or abcl allegro clozure cmu genera lispworks mkcl sbcl scl xcl) :unspecific #+(or clisp ecl gcl #|These haven't been tested:|# cormanlisp mcl) nil #+(or abcl allegro clozure cmu genera lispworks mkcl sbcl scl) :unspecific #+(or clisp ecl gcl xcl #|These haven't been tested:|# cormanlisp mcl) nil "Unspecific type component to use with the underlying implementation's MAKE-PATHNAME") (defun make-pathname* (&rest keys &key (directory nil) Loading uiop/stream.lisp +1 −0 Original line number Diff line number Diff line Loading @@ -557,6 +557,7 @@ THUNK is only CALL-FUNCTION'ed after the stream is closed, with the pathname as Upon exit of THUNK, the AFTER thunk if defined is CALL-FUNCTION'ed with the pathname as argument. If AFTER is defined, its results are returned, otherwise, the results of THUNK are returned. Finally, the file will be deleted, unless the KEEP argument when CALL-FUNCTION'ed returns true." #+xcl (declare (ignorable typep)) (check-type direction (member :output :io)) (assert (or want-stream-p want-pathname-p)) (loop Loading Loading
TODO +4 −0 Original line number Diff line number Diff line Loading @@ -120,6 +120,10 @@ :name nil :type nil) fails to handle the logical-pathname-ness of ASDFTEST. *** `#5(1 ,@`(2 3)))` returns #(1 2 3), rather than #(1 2 3 2 3 2 3 2 3) or even better #(1 2 3 3 3). *** XCL recognizes :unspecific for a pathname type, but prints the namestring with a dot separator! (make-pathname :name "foo" :type :unspecific) ==> #P"foo." If bug is ever fixed, upgrade *unspecific-pathname-type* in uiop/pathname. ** GCL is almost working again; but implementation bugs remain. See November 2013 discussion on gcl-devel. Loading
bundle.lisp +3 −1 Original line number Diff line number Diff line Loading @@ -184,6 +184,7 @@ itself.")) ;; operation on a system and its dependencies (operation-original-initargs instance)))) (defmethod bundle-op-build-args :around ((o no-ld-flags-op)) #+xcl (declare (ignorable o)) (let ((args (call-next-method))) (remf args :ld-flags) args)) Loading Loading @@ -418,6 +419,7 @@ itself.")) ;; operation on a system and its dependencies (perform-lisp-load-fasl o s)) (defmethod component-depends-on ((o load-fasl-op) (s precompiled-system)) #+xcl (declare (ignorable o)) `((load-op ,s) ,@(call-next-method)))) #| ;; Example use: Loading
plan.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -384,7 +384,6 @@ the action of OPERATION on COMPONENT in the PLAN")) (when (action-planned-p new-status) (push (cons o c) (plan-actions-r p))))) ;;;; high-level interface: traverse, perform-plan, plan-operates-on-p (with-upgradability () (defgeneric make-plan (plan-class operation component &key &allow-other-keys) Loading @@ -405,6 +404,7 @@ the action of OPERATION on COMPONENT in the PLAN")) plan)) (defmethod perform-plan :around ((plan t) &key) #+xcl (declare (ignorable plan)) (let ((*package* *package*) (*readtable* *readtable*)) (with-compilation-unit () ;; backward-compatibility. Loading
uiop/pathname.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -91,8 +91,8 @@ by the underlying implementation's MAKE-PATHNAME and other primitives" ;; See CLHS make-pathname and 19.2.2.2.3. ;; This will be :unspecific if supported, or NIL if not. (defparameter *unspecific-pathname-type* #+(or abcl allegro clozure cmu genera lispworks mkcl sbcl scl xcl) :unspecific #+(or clisp ecl gcl #|These haven't been tested:|# cormanlisp mcl) nil #+(or abcl allegro clozure cmu genera lispworks mkcl sbcl scl) :unspecific #+(or clisp ecl gcl xcl #|These haven't been tested:|# cormanlisp mcl) nil "Unspecific type component to use with the underlying implementation's MAKE-PATHNAME") (defun make-pathname* (&rest keys &key (directory nil) Loading
uiop/stream.lisp +1 −0 Original line number Diff line number Diff line Loading @@ -557,6 +557,7 @@ THUNK is only CALL-FUNCTION'ed after the stream is closed, with the pathname as Upon exit of THUNK, the AFTER thunk if defined is CALL-FUNCTION'ed with the pathname as argument. If AFTER is defined, its results are returned, otherwise, the results of THUNK are returned. Finally, the file will be deleted, unless the KEEP argument when CALL-FUNCTION'ed returns true." #+xcl (declare (ignorable typep)) (check-type direction (member :output :io)) (assert (or want-stream-p want-pathname-p)) (loop Loading