changed plist-nunion to get rid of a LENGTH call

[clinton/lisp-on-lines.git] / lisp-on-lines.lyx

diff --git a/lisp-on-lines.lyx b/lisp-on-lines.lyx
index 4752559..c20369b 100644 (file)
--- 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)