From 5550d611148656b3189656273020d5ba8570bb51 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jos=C3=A9=20Pablo=20Ezequiel=20=22Pupeno=22=20Fern=C3=A1nde?=
 =?utf8?q?z=20Silva?= <pupeno@pupeno.com>
Date: Mon, 6 Jun 2005 18:30:26 -0700
Subject: [PATCH] A lot of little eye-candy fixes here and there on the
 documentation (as well as some more important things).

darcs-hash:20050607013026-de23e-4e15008c3f0451095032c7517b13bb1bf78b48f8.gz
---
 lisp-on-lines.lyx | 71 ++++++++++++++++++++++++++---------------------
 1 file changed, 40 insertions(+), 31 deletions(-)

diff --git a/lisp-on-lines.lyx b/lisp-on-lines.lyx
index 4752559..c20369b 100644
--- a/lisp-on-lines.lyx
+++ b/lisp-on-lines.lyx
@@ -26,6 +26,17 @@
 \layout Title
 
 LISP-ON-LINES
+\layout Author
+
+Drew Crapmsie, José Pablo Ezequiel 
+\begin_inset Quotes eld
+\end_inset 
+
+Pupeno
+\begin_inset Quotes erd
+\end_inset 
+
+ Fernández Silva
 \layout Section
 
 Components
@@ -129,16 +140,9 @@ We'll define a simple class to hold a user.
 
    (password :initarg :password :accessor password :type string :db-kind
  :base)))
-\layout LyX-Code
-
-\layout LyX-Code
-
-STYLE-WARNING: redefining META-MODEL.METADATA (USER) in DEFMETHOD
-\layout LyX-Code
-
-#<CLSQL-SYS::STANDARD-DB-CLASS USER>
-\layout LyX-Code
+\layout Standard
 
+and now we create a user:
 \layout LyX-Code
 
 (defparameter user (make-instance 'user :userid 1 
@@ -148,67 +152,72 @@ STYLE-WARNING: redefining META-MODEL.METADATA (USER) in DEFMETHOD
 \layout LyX-Code
 
                                         :password "p@ssw0rd"))
-\layout LyX-Code
-
-\layout LyX-Code
+\layout Standard
 
-USER
+We can see the slots of users running:
 \layout LyX-Code
 
-\layout LyX-Code
+(lisp-on-lines::list-slots user)
+\layout Standard
 
-LISP-ON-LINES> (list-slots user)
+which returns:
 \layout LyX-Code
 
 (USERID USERNAME PASSWORD)
+\layout Standard
+
+or the types with:
 \layout LyX-Code
 
-LISP-ON-LINES> (list-slot-types user)
+(lisp-on-lines::list-slot-types user)
+\layout Standard
+
+which returns:
 \layout LyX-Code
 
 ((USERID INTEGER) (USERNAME STRING) (PASSWORD STRING))
-\layout LyX-Code
+\layout Standard
 
-; compiling file "/tmp/fileQQsHyN" (written 03 JUN 2005 03:20:06 PM):
+We can run:
 \layout LyX-Code
 
-; /tmp/fileQQsHyN.fasl written
-\layout LyX-Code
+(lisp-on-lines::default-attributes user)
+\layout Standard
 
-; compilation finished in 0:00:00
+which returns:
 \layout LyX-Code
 
+((userid integer :label "User ID" :slot-name 'userid)
 \layout LyX-Code
 
+ (username string :label "User name" :slot-name 'username)
 \layout LyX-Code
 
-(default-attributes user)
-\layout LyX-Code
+ (password string :label "Password" :slot-name 'password))
+\layout Standard
 
-  ((userid integer :label "User ID" :slot-name 'userid)
+fdsa
 \layout LyX-Code
 
-   (username string :label "User name" :slot-name 'username)
+(set-default-attributes user)
 \layout LyX-Code
 
-   (password string :label "Password" :slot-name 'password))
 \layout LyX-Code
 
 \layout LyX-Code
 
-LISP-ON-LINES> (set-default-attributes user)
+((userid integer :label "User ID" :slot-name 'userid)
 \layout LyX-Code
 
-((USERID INTEGER :LABEL "USERID" :SLOT-NAME USERID)
+   (username string :label "User name" :slot-name 'username)
 \layout LyX-Code
 
-(USERNAME STRING :LABEL "USERNAME" :SLOT-NAME USERNAME)
+   (password string :label "Password" :slot-name 'password))
 \layout LyX-Code
 
-(PASSWORD STRING :LABEL "PASSWORD" :SLOT-NAME PASSWORD))
 \layout LyX-Code
 
-LISP-ON-LINES> (find-class-attributes user)
+(find-class-attributes user)
 \layout LyX-Code
 
 (USER (PASSWORD STRING :LABEL "PASSWORD" :SLOT-NAME PASSWORD)
-- 
2.20.1