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>
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