From fc24d39630a3c2d44ccbc9ab4a67d17f554e12ad Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Mon, 15 Mar 2010 18:33:44 -0400
Subject: [PATCH] 1.637: Don't use :unspecific on clisp (not supported by clisp
 2.48). Unintern old asdf:around symbols.

---
 asdf.lisp | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index d8627b0a..d85f021f 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -145,7 +145,7 @@
     (ensure-package
      ':asdf
      :use '(:common-lisp :asdf-utilities)
-     :unintern '(#:*asdf-revision*)
+     :unintern '(#:*asdf-revision* #:around #:asdf-method-combination)
      :fmakunbound '(#:perform #:explain #:output-files #:operation-done-p)
      :export
      '(#:defsystem #:oos #:operate #:find-system #:run-shell-command
@@ -250,7 +250,7 @@
   ;; This parameter isn't actually user-visible
   ;; -- please use the exported function ASDF:ASDF-VERSION below.
   ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
-  (subseq "VERSION:1.636" (1+ (length "VERSION"))))
+  (subseq "VERSION:1.637" (1+ (length "VERSION"))))
 
 (defun asdf-version ()
   "Exported interface to the version of ASDF currently installed. A string.
@@ -495,11 +495,12 @@ starting the separation from the end, e.g. when called with arguments
           (setf end start))))))
 
 (defun split-name-type (filename)
-  (destructuring-bind (name &optional (type :unspecific))
-      (split-string filename :max 2 :separator ".")
-    (if (equal name "")
-        (values filename :unspecific)
-        (values name type))))
+  (let ((unspecific #-clisp :unspecific #+clisp nil))
+    (destructuring-bind (name &optional (type unspecific))
+        (split-string filename :max 2 :separator ".")
+      (if (equal name "")
+          (values filename unspecific)
+          (values name type)))))
 
 (defun component-name-to-pathname-components (s &optional force-directory)
   "Splits the path string S, returning three values:
-- 
GitLab