From 121fd80f2b13db0acf53a37f68e8daa3cd9836bc Mon Sep 17 00:00:00 2001
From: AJ Rossini <blindglobe@gmail.com>
Date: Sun, 4 Nov 2007 12:00:29 +0100
Subject: [PATCH] Documentation, compile, and initialization cleanup.

---
 compound.lsp  |  1 +
 lispstat.asd  | 12 +++++++-----
 ls-demo.lisp  | 28 ++++++++++++++++++++++++++--
 lsobjects.lsp |  1 -
 4 files changed, 34 insertions(+), 8 deletions(-)

diff --git a/compound.lsp b/compound.lsp
index b8a876e..9aef93a 100644
--- a/compound.lsp
+++ b/compound.lsp
@@ -222,6 +222,7 @@ Returns sequence of the elements of compound item X."
 
 (defproto *compound-data-proto*)
 
+;;; FIXME: These need to be defined!!
 (defmeth *compound-data-proto* :data-length (&rest args) nil)
 (defmeth *compound-data-proto* :data-seq (&rest args) nil)
 (defmeth *compound-data-proto* :make-data (&rest args) nil)
diff --git a/lispstat.asd b/lispstat.asd
index e0bc11d..d193cc5 100644
--- a/lispstat.asd
+++ b/lispstat.asd
@@ -15,11 +15,13 @@
 ;;; borrowed from Cyrus Harmon's work, for example for the ch-util.
 (defclass lispstat-lsp-source-file (cl-source-file) ())
 (defparameter *fasl-directory*
-   (make-pathname :directory '(:relative #+sbcl "sbcl-fasl"
-			      #+openmcl "openmcl-fasl"
-			      #+cmucl "cmucl-fasl"
-			      #+clisp "clisp-fasl"
-			      #-(or sbcl openmcl clisp cmucl) "fasl")))
+   (make-pathname :directory '(:relative
+			       #+sbcl "sbcl-fasl"
+			       #+openmcl "openmcl-fasl"
+			       #+cmu "cmucl-fasl"
+			       #+clisp "clisp-fasl"
+			       #-(or sbcl openmcl clisp cmucl) "fasl"
+			       )))
 
 (defmethod source-file-type ((c lispstat-lsp-source-file) (s module)) "lsp")
 (defmethod asdf::output-files :around ((operation compile-op)
diff --git a/ls-demo.lisp b/ls-demo.lisp
index 8160305..4ff7dc5 100644
--- a/ls-demo.lisp
+++ b/ls-demo.lisp
@@ -1,5 +1,20 @@
+;;; -*- mode: lisp -*-
+;;; Copyright (c) 2007, by A.J. Rossini <blindglobe@gmail.com>
+;;; See COPYRIGHT file for any additional restrictions (BSD license).
+;;; Since 1991, ANSI was finally finished.  Edited for ANSI Common Lisp. 
 
-(load "init.lisp")
+;;; File:       ls-demo.lisp
+;;; Author:     AJ Rossini <blindglobe@gmail.com>
+;;; Copyright:  (c) 2007, AJ Rossini.  BSD.
+;;; Purpose:    demonstrations of how one might use CLS.
+;;; Time-stamp: <>
+;;; Creation:   
+
+;;; What is this talk of 'release'? Klingons do not make software
+;;; 'releases'.  Our software 'escapes', leaving a bloody trail of
+;;; designers and quality assurance people in its wake.
+
+(load "init.lisp")  ;; init needs to be more like the asdf-loader for lisp-stat, though it is pretty close. 
 
 ;;; checking exports.
 ;;; This is generally not how I expect it to be used.
@@ -23,7 +38,6 @@
 
 ;; Matrix algebra.
 
-
 (chol-decomp  #2A((2 3 4) (1 2 4) (2 4 5)))
 ;; (#2A((1.7888543819998317 0.0 0.0)
 ;;      (1.6770509831248424 0.11180339887498929 0.0)
@@ -175,3 +189,13 @@
 (binomial-rand 5 3 0.4) ;;(2 2 0 1 2)
 
 
+;;; OBJECT SYSTEM
+
+(defproto *test-proto*)
+
+*test-proto*
+
+(defmeth *test-proto* :make-data (&rest args) nil)
+
+
+
diff --git a/lsobjects.lsp b/lsobjects.lsp
index 83b667e..2a0d185 100644
--- a/lsobjects.lsp
+++ b/lsobjects.lsp
@@ -507,7 +507,6 @@ a method."
 (defun get-documentation (x sym)
   (check-object x)
   (dolist (object (ls-object-preclist x))
-;;    (let ((doc-entry (find-documentation x sym nil))) ;; shouldn't object be here somewhere?
     (let ((doc-entry (find-documentation object sym nil))) ;; FIXME: verify
       (if doc-entry (return (rest doc-entry))))))
 
-- 
2.11.4.GIT