[Defeditor-cvs] CVS update: DefEditor/structure.lisp - defeditor-cvs@common-lisp.net - mailman3.common-lisp.net

16 Feb 2004

Update of /project/defeditor/cvsroot/DefEditor
In directory common-lisp.net:/tmp/cvs-serv18976
Modified Files:
    structure.lisp 
Log Message:
stylistic tweak
Date: Sun Feb 15 21:20:14 2004
Author: rjain
Index: DefEditor/structure.lisp
diff -u DefEditor/structure.lisp:1.1.1.1 DefEditor/structure.lisp:1.2

--- DefEditor/structure.lisp:1.1.1.1	Sun Feb 15 21:17:14 2004
+++ DefEditor/structure.lisp	Sun Feb 15 21:20:14 2004
@@ -18,8 +18,8 @@
   (list (structure-content structure)))
(defmethod (setf structure-contents) (new-value (structure structure-branch-item))
-  (if (and (consp new-value) (endp (cdr new-value)))
-      (setf (structure-content structure) (car new-value))
+  (if (and (consp new-value) (endp (rest new-value)))
+      (setf (structure-content structure) (first new-value))
       (error "Can't set single-item branch's contents to multiple items.")))
(defclass structure-leaf (structure-element)

    