From: Daniel Barlow <dan@telent.net>
Date: Sun, 23 Mar 2003 13:48:28 +0000 (+0000)
Subject: 0.7.13.33
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=2e274c84832d4b9a18adc66b5f15b29e217d012b;p=sbcl.git

0.7.13.33
	Last-minute contrib fixes ...

	patch from KMR to fix history numbers in sb-aclrepl
	... and cosmetic patch to sb-aclrepl so that :help command says
	    how to use the history list anyway

	sb-bsd-sockets gets support for the experimental asdf hyperdoc
	protocol
---

diff --git a/contrib/sb-aclrepl/sb-aclrepl.lisp b/contrib/sb-aclrepl/sb-aclrepl.lisp
index 6fdf059..3d43f7a 100644
--- a/contrib/sb-aclrepl/sb-aclrepl.lisp
+++ b/contrib/sb-aclrepl/sb-aclrepl.lisp
@@ -77,7 +77,12 @@
 		     (string-trim-whitespace (subseq line first-space-pos))
 		     "")))
 	   (if (numberp (read-from-string cmd-string))
-	       (get-history (read-from-string cmd-string))
+	       (let ((cmd (get-history (read-from-string cmd-string))))
+		 (when cmd
+		   (make-user-cmd :func (user-cmd-func cmd)
+				  :input (user-cmd-input cmd)
+				  :args (user-cmd-args cmd)
+				  :hnum *cmd-number*)))
 	       (let ((cmd-entry (find-cmd cmd-string)))
 		 (if cmd-entry
 		     (make-user-cmd :func (cmd-table-entry-func cmd-entry)
@@ -159,7 +164,7 @@
     (if cmd
 	cmd
 	(progn
-	  (format t "Input numbered %d is not on the history list.." n)
+	  (format t "Input numbered ~A is not on the history list.." n)
 	  *null-cmd*))))
 
 (defun get-cmd-doc-list (&optional (group :cmd))
@@ -302,6 +307,7 @@
     (t
      (format t "~13A ~a~%" "Command" "Description")
      (format t "------------- -------------~%")
+     (format t "~13A ~A~%" "n" "(for any number n) recall nth command from history list")
      (dolist (doc-entry (get-cmd-doc-list :cmd))
        (format t "~13A ~A~%" (car doc-entry) (cadr doc-entry)))))
   (values))
diff --git a/contrib/sb-bsd-sockets/defpackage.lisp b/contrib/sb-bsd-sockets/defpackage.lisp
index f424ee8..5b4b72f 100644
--- a/contrib/sb-bsd-sockets/defpackage.lisp
+++ b/contrib/sb-bsd-sockets/defpackage.lisp
@@ -122,3 +122,14 @@ than "network-endian integers".  See the section on <a href="#internet"
 
 
 |#
+
+(in-package :sb-bsd-sockets)
+
+(defmethod asdf:hyperdocumentation
+    ((package (eql #.*package*)) symbol kind)
+  (declare (ignore kind))
+  (format nil "file://~A#~A"
+	  #.(namestring
+	     (merge-pathnames "index.html"
+			      (or *load-pathname* *compile-file-pathname*)))
+	  symbol))
\ No newline at end of file
diff --git a/contrib/sb-bsd-sockets/sb-bsd-sockets.asd b/contrib/sb-bsd-sockets/sb-bsd-sockets.asd
index 5422784..bf946c3 100644
--- a/contrib/sb-bsd-sockets/sb-bsd-sockets.asd
+++ b/contrib/sb-bsd-sockets/sb-bsd-sockets.asd
@@ -129,3 +129,4 @@
 (defmethod perform ((o test-op) (c (eql (find-system :sb-bsd-sockets))))
   (or (funcall (intern "DO-TESTS" (find-package "RT")))
       (error "test-op failed")))
+
diff --git a/contrib/sb-bsd-sockets/tests.lisp b/contrib/sb-bsd-sockets/tests.lisp
index c6c3c76..804fe5b 100644
--- a/contrib/sb-bsd-sockets/tests.lisp
+++ b/contrib/sb-bsd-sockets/tests.lisp
@@ -128,13 +128,11 @@ Tests are in the file <tt>tests.lisp</tt> and also make good examples.
 	(> (length data) 0))))
   t)
 
-#||
-<h2>Local-domain sockets</h2>
+;;; A fairly rudimentary test that connects to the syslog socket and
+;;; sends a message.  Priority 7 is kern.debug; you'll probably want
+;;; to look at /etc/syslog.conf or local equivalent to find out where
+;;; the message ended up
 
-A fairly rudimentary test that connects to the syslog socket and sends a 
-message.  Priority 7 is kern.debug; you'll probably want to look at
-/etc/syslog.conf or local equivalent to find out where the message ended up
-||#
 #-sunos
 (deftest simple-local-client
     (let ((s (make-instance 'local-socket :type :datagram)))
diff --git a/version.lisp-expr b/version.lisp-expr
index 0153acc..3a86661 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.7.13.32"
+"0.7.13.33"