[Defeditor-cvs] CVS update: DefEditor/structure.lisp

[Rahul Jain]

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)