From eweitz at common-lisp.net  Sat Apr 24 00:34:11 2004
From: eweitz at common-lisp.net (Edi Weitz)
Date: Fri, 23 Apr 2004 20:34:11 -0400
Subject: [cl-who-cvs] CVS update: cl-who/doc/index.html 
Message-ID: <E1BHB7T-00027n-00@common-lisp.net>

Update of /project/cl-who/cvsroot/cl-who/doc
In directory common-lisp.net:/tmp/cvs-serv31458/doc

Modified Files:
	index.html 
Log Message:
pre-0.4.2 with hyperdoc support

Date: Fri Apr 23 20:34:11 2004
Author: eweitz

Index: cl-who/doc/index.html
diff -u cl-who/doc/index.html:1.1.1.1 cl-who/doc/index.html:1.2
--- cl-who/doc/index.html:1.1.1.1	Tue Jan  6 20:08:15 2004
+++ cl-who/doc/index.html	Fri Apr 23 20:34:10 2004
@@ -237,7 +237,7 @@
 
 CL-WHO together with this documentation can be downloaded from <a
 href="http://weitz.de/files/cl-who.tgz">http://weitz.de/files/cl-who.tgz</a>. The
-current version is 0.4.0.
+current version is 0.4.1.
 <p>
 If you're on <a href="http://www.debian.org/">Debian</a> you should
 probably use the <a
@@ -615,7 +615,7 @@
 attribute values. Thanks to Kevin Rosenberg for the LHTML patch.
 
 <p>
-$Header: /project/cl-who/cvsroot/cl-who/doc/index.html,v 1.1.1.1 2004/01/07 01:08:15 eweitz Exp $
+$Header: /project/cl-who/cvsroot/cl-who/doc/index.html,v 1.2 2004/04/24 00:34:10 eweitz Exp $
 <p><a href="http://weitz.de/index.html">BACK TO MY HOMEPAGE</a>
 
 </body>




From eweitz at common-lisp.net  Sat Apr 24 00:34:11 2004
From: eweitz at common-lisp.net (Edi Weitz)
Date: Fri, 23 Apr 2004 20:34:11 -0400
Subject: [cl-who-cvs] CVS update: cl-who/CHANGELOG cl-who/INSTALLATION
	cl-who/cl-who.asd cl-who/cl-who.system cl-who/load.lisp
	cl-who/packages.lisp cl-who/who.lisp 
Message-ID: <E1BHB7T-00027d-00@common-lisp.net>

Update of /project/cl-who/cvsroot/cl-who
In directory common-lisp.net:/tmp/cvs-serv31458

Modified Files:
	CHANGELOG INSTALLATION cl-who.asd cl-who.system load.lisp 
	packages.lisp who.lisp 
Log Message:
pre-0.4.2 with hyperdoc support

Date: Fri Apr 23 20:34:10 2004
Author: eweitz

Index: cl-who/CHANGELOG
diff -u cl-who/CHANGELOG:1.1.1.1 cl-who/CHANGELOG:1.2
--- cl-who/CHANGELOG:1.1.1.1	Tue Jan  6 20:08:12 2004
+++ cl-who/CHANGELOG	Fri Apr 23 20:34:10 2004
@@ -1,3 +1,11 @@
+Version 0.4.2
+????-??-??
+Added hyperdoc support
+
+Version 0.4.1
+2004-04-15
+Added :CL-WHO to *FEATURES* (for TBNL)
+
 Version 0.4.0
 2003-12-03
 Allow for optional LHTML syntax (patch by Kevin Rosenberg)


Index: cl-who/INSTALLATION
diff -u cl-who/INSTALLATION:1.1.1.1 cl-who/INSTALLATION:1.2
--- cl-who/INSTALLATION:1.1.1.1	Tue Jan  6 20:08:13 2004
+++ cl-who/INSTALLATION	Fri Apr 23 20:34:10 2004
@@ -25,4 +25,8 @@
 check if everything works as expected.
 
 Complete documentation for CL-WHO can be found in the 'doc'
-directory.
\ No newline at end of file
+directory.
+
+CL-WHO also supports Nikodemus Siivola's HYPERDOC, see
+<http://common-lisp.net/project/hyperdoc/> and
+<http://www.cliki.net/hyperdoc>.
\ No newline at end of file


Index: cl-who/cl-who.asd
diff -u cl-who/cl-who.asd:1.1.1.1 cl-who/cl-who.asd:1.2
--- cl-who/cl-who.asd:1.1.1.1	Tue Jan  6 20:08:15 2004
+++ cl-who/cl-who.asd	Fri Apr 23 20:34:10 2004
@@ -1,7 +1,7 @@
 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
-;;; $Header: /project/cl-who/cvsroot/cl-who/cl-who.asd,v 1.1.1.1 2004/01/07 01:08:15 eweitz Exp $
+;;; $Header: /project/cl-who/cvsroot/cl-who/cl-who.asd,v 1.2 2004/04/24 00:34:10 eweitz Exp $
 
-;;; Copyright (c) 2003, Dr. Edmund Weitz.  All rights reserved.
+;;; Copyright (c) 2003-2004, Dr. Edmund Weitz.  All rights reserved.
 
 ;;; Redistribution and use in source and binary forms, with or without
 ;;; modification, are permitted provided that the following conditions


Index: cl-who/cl-who.system
diff -u cl-who/cl-who.system:1.1.1.1 cl-who/cl-who.system:1.2
--- cl-who/cl-who.system:1.1.1.1	Tue Jan  6 20:08:15 2004
+++ cl-who/cl-who.system	Fri Apr 23 20:34:10 2004
@@ -1,7 +1,7 @@
 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
-;;; $Header: /project/cl-who/cvsroot/cl-who/cl-who.system,v 1.1.1.1 2004/01/07 01:08:15 eweitz Exp $
+;;; $Header: /project/cl-who/cvsroot/cl-who/cl-who.system,v 1.2 2004/04/24 00:34:10 eweitz Exp $
 
-;;; Copyright (c) 2003, Dr. Edmund Weitz.  All rights reserved.
+;;; Copyright (c) 2003-2004, Dr. Edmund Weitz.  All rights reserved.
 
 ;;; Redistribution and use in source and binary forms, with or without
 ;;; modification, are permitted provided that the following conditions


Index: cl-who/load.lisp
diff -u cl-who/load.lisp:1.1.1.1 cl-who/load.lisp:1.2
--- cl-who/load.lisp:1.1.1.1	Tue Jan  6 20:08:12 2004
+++ cl-who/load.lisp	Fri Apr 23 20:34:10 2004
@@ -1,7 +1,7 @@
 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
-;;; $Header: /project/cl-who/cvsroot/cl-who/load.lisp,v 1.1.1.1 2004/01/07 01:08:12 eweitz Exp $
+;;; $Header: /project/cl-who/cvsroot/cl-who/load.lisp,v 1.2 2004/04/24 00:34:10 eweitz Exp $
 
-;;; Copyright (c) 2003, Dr. Edmund Weitz.  All rights reserved.
+;;; Copyright (c) 2003-2004, Dr. Edmund Weitz.  All rights reserved.
 
 ;;; Redistribution and use in source and binary forms, with or without
 ;;; modification, are permitted provided that the following conditions


Index: cl-who/packages.lisp
diff -u cl-who/packages.lisp:1.1.1.1 cl-who/packages.lisp:1.2
--- cl-who/packages.lisp:1.1.1.1	Tue Jan  6 20:08:12 2004
+++ cl-who/packages.lisp	Fri Apr 23 20:34:10 2004
@@ -1,7 +1,7 @@
 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
-;;; $Header: /project/cl-who/cvsroot/cl-who/packages.lisp,v 1.1.1.1 2004/01/07 01:08:12 eweitz Exp $
+;;; $Header: /project/cl-who/cvsroot/cl-who/packages.lisp,v 1.2 2004/04/24 00:34:10 eweitz Exp $
 
-;;; Copyright (c) 2003, Dr. Edmund Weitz. All rights reserved.
+;;; Copyright (c) 2003-2004, Dr. Edmund Weitz. All rights reserved.
 
 ;;; Redistribution and use in source and binary forms, with or without
 ;;; modification, are permitted provided that the following conditions
@@ -66,3 +66,5 @@
            "STR"
            "WITH-HTML-OUTPUT"
            "WITH-HTML-OUTPUT-TO-STRING"))
+
+(pushnew :cl-who *features*)
\ No newline at end of file


Index: cl-who/who.lisp
diff -u cl-who/who.lisp:1.1.1.1 cl-who/who.lisp:1.2
--- cl-who/who.lisp:1.1.1.1	Tue Jan  6 20:08:13 2004
+++ cl-who/who.lisp	Fri Apr 23 20:34:10 2004
@@ -1,7 +1,7 @@
 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package:CL-WHO; Base: 10 -*-
-;;; $Header: /project/cl-who/cvsroot/cl-who/who.lisp,v 1.1.1.1 2004/01/07 01:08:13 eweitz Exp $
+;;; $Header: /project/cl-who/cvsroot/cl-who/who.lisp,v 1.2 2004/04/24 00:34:10 eweitz Exp $
 
-;;; Copyright (c) 2003, Dr. Edmund Weitz. All rights reserved.
+;;; Copyright (c) 2003-2004, Dr. Edmund Weitz. All rights reserved.
 
 ;;; Redistribution and use in source and binary forms, with or without
 ;;; modification, are permitted provided that the following conditions
@@ -408,3 +408,22 @@
     (setq prologue *prologue*))
   `(pprint '(let ((,var ,(or stream var)))
              ,(tree-to-commands body var prologue))))
+
+;; stuff for Nikodemus Siivola's HYPERDOC
+;; see <http://common-lisp.net/project/hyperdoc/>
+;; and <http://www.cliki.net/hyperdoc>
+
+(defvar *hyperdoc-base-uri* "http://weitz.de/cl-who/")
+
+(let ((exported-symbols-alist
+       (loop for symbol being the external-symbols of :cl-who
+             collect (cons symbol
+                           (concatenate 'string
+                                        "#"
+                                        (string-downcase symbol))))))
+  (defun hyperdoc-lookup (symbol type)
+    (declare (ignore type))
+    (cdr (assoc symbol
+                exported-symbols-alist
+                :test #'eq))))
+               
\ No newline at end of file