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)