Loading asdf.lisp +12 −3 Original line number Original line Diff line number Diff line ;;; This is asdf: Another System Definition Facility. $Revision: 1.43 $ ;;; This is asdf: Another System Definition Facility. $Revision: 1.44 $ ;;; ;;; ;;; Feedback, bug reports, and patches are all welcome: please mail to ;;; Feedback, bug reports, and patches are all welcome: please mail to ;;; <cclan-list@lists.sf.net>. But note first that the canonical ;;; <cclan-list@lists.sf.net>. But note first that the canonical Loading Loading @@ -88,7 +88,7 @@ (in-package #:asdf) (in-package #:asdf) ;;; parse the cvs revision into something that might be vaguely useful. ;;; parse the cvs revision into something that might be vaguely useful. (defvar *asdf-revision* (let* ((v "$Revision: 1.43 $") (defvar *asdf-revision* (let* ((v "$Revision: 1.44 $") (colon (position #\: v)) (colon (position #\: v)) (dot (position #\. v))) (dot (position #\. v))) (and v colon dot (and v colon dot Loading Loading @@ -735,7 +735,8 @@ system.")) :module (coerce-name ',name) :module (coerce-name ',name) :pathname :pathname (or ,pathname (or ,pathname (pathname-sans-name+type *load-truename*) (pathname-sans-name+type (resolve-symlinks *load-truename*)) *default-pathname-defaults*) *default-pathname-defaults*) ',component-options)))))) ',component-options)))))) Loading Loading @@ -837,6 +838,14 @@ Returns the new tree (which probably shares structure with the old one)" ret))) ret))) #-(or allegro) (defun resolve-symlinks (path) (truename path)) #+allegro (defun resolve-symlinks (path) (excl:pathname-resolve-symbolic-links path)) ;;; optional extras ;;; optional extras ;;; run-shell-command functions for other lisp implementations will be ;;; run-shell-command functions for other lisp implementations will be Loading debian/changelog +6 −0 Original line number Original line Diff line number Diff line cl-asdf (1.44-1) unstable; urgency=low * New upstream version -- Kevin M. Rosenberg <kmr@debian.org> Tue, 17 Sep 2002 12:24:27 -0600 cl-asdf (1.43-1) unstable; urgency=low cl-asdf (1.43-1) unstable; urgency=low * New upstream version * New upstream version Loading Loading
asdf.lisp +12 −3 Original line number Original line Diff line number Diff line ;;; This is asdf: Another System Definition Facility. $Revision: 1.43 $ ;;; This is asdf: Another System Definition Facility. $Revision: 1.44 $ ;;; ;;; ;;; Feedback, bug reports, and patches are all welcome: please mail to ;;; Feedback, bug reports, and patches are all welcome: please mail to ;;; <cclan-list@lists.sf.net>. But note first that the canonical ;;; <cclan-list@lists.sf.net>. But note first that the canonical Loading Loading @@ -88,7 +88,7 @@ (in-package #:asdf) (in-package #:asdf) ;;; parse the cvs revision into something that might be vaguely useful. ;;; parse the cvs revision into something that might be vaguely useful. (defvar *asdf-revision* (let* ((v "$Revision: 1.43 $") (defvar *asdf-revision* (let* ((v "$Revision: 1.44 $") (colon (position #\: v)) (colon (position #\: v)) (dot (position #\. v))) (dot (position #\. v))) (and v colon dot (and v colon dot Loading Loading @@ -735,7 +735,8 @@ system.")) :module (coerce-name ',name) :module (coerce-name ',name) :pathname :pathname (or ,pathname (or ,pathname (pathname-sans-name+type *load-truename*) (pathname-sans-name+type (resolve-symlinks *load-truename*)) *default-pathname-defaults*) *default-pathname-defaults*) ',component-options)))))) ',component-options)))))) Loading Loading @@ -837,6 +838,14 @@ Returns the new tree (which probably shares structure with the old one)" ret))) ret))) #-(or allegro) (defun resolve-symlinks (path) (truename path)) #+allegro (defun resolve-symlinks (path) (excl:pathname-resolve-symbolic-links path)) ;;; optional extras ;;; optional extras ;;; run-shell-command functions for other lisp implementations will be ;;; run-shell-command functions for other lisp implementations will be Loading
debian/changelog +6 −0 Original line number Original line Diff line number Diff line cl-asdf (1.44-1) unstable; urgency=low * New upstream version -- Kevin M. Rosenberg <kmr@debian.org> Tue, 17 Sep 2002 12:24:27 -0600 cl-asdf (1.43-1) unstable; urgency=low cl-asdf (1.43-1) unstable; urgency=low * New upstream version * New upstream version Loading