Loading asdf.lisp +7 −5 Original line number Original line Diff line number Diff line Loading @@ -49,10 +49,12 @@ (cl:in-package :cl-user) (cl:in-package :cl-user) (eval-when (:compile-toplevel :load-toplevel :execute) (eval-when (:compile-toplevel :load-toplevel :execute) (let ((sym (find-symbol "*ASDF-REVISION*" :asdf))) (let ((asdf (find-package :asdf))) (when asdf (let ((sym (find-symbol "*ASDF-REVISION*" asdf))) (when sym (when sym (unexport sym) (unexport sym) (unintern sym)))) (unintern sym)))))) (defpackage #:asdf (defpackage #:asdf (:documentation "Another System Definition Facility") (:documentation "Another System Definition Facility") Loading Loading @@ -173,7 +175,7 @@ ;;;; ;;;; (defparameter *asdf-version* (defparameter *asdf-version* ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace (subseq "VERSION:1.592" (1+ (length "VERSION")))) (subseq "VERSION:1.593" (1+ (length "VERSION")))) (defun asdf-version () (defun asdf-version () *asdf-version*) *asdf-version*) Loading Loading
asdf.lisp +7 −5 Original line number Original line Diff line number Diff line Loading @@ -49,10 +49,12 @@ (cl:in-package :cl-user) (cl:in-package :cl-user) (eval-when (:compile-toplevel :load-toplevel :execute) (eval-when (:compile-toplevel :load-toplevel :execute) (let ((sym (find-symbol "*ASDF-REVISION*" :asdf))) (let ((asdf (find-package :asdf))) (when asdf (let ((sym (find-symbol "*ASDF-REVISION*" asdf))) (when sym (when sym (unexport sym) (unexport sym) (unintern sym)))) (unintern sym)))))) (defpackage #:asdf (defpackage #:asdf (:documentation "Another System Definition Facility") (:documentation "Another System Definition Facility") Loading Loading @@ -173,7 +175,7 @@ ;;;; ;;;; (defparameter *asdf-version* (defparameter *asdf-version* ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace (subseq "VERSION:1.592" (1+ (length "VERSION")))) (subseq "VERSION:1.593" (1+ (length "VERSION")))) (defun asdf-version () (defun asdf-version () *asdf-version*) *asdf-version*) Loading