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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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"