From de6e64c785c97e19263f2e194d7f3b9628a729d6 Mon Sep 17 00:00:00 2001
From: AJ Rossini <blindglobe@gmail.com>
Date: Fri, 16 Nov 2007 18:40:57 +0100
Subject: [PATCH] definition order mattered for compile, not sure why.

---
 lsobjects.lsp | 27 ++++++++++++++-------------
 1 file changed, 14 insertions(+), 13 deletions(-)

diff --git a/lsobjects.lsp b/lsobjects.lsp
index 6816cef..b992230 100644
--- a/lsobjects.lsp
+++ b/lsobjects.lsp
@@ -606,6 +606,20 @@ a list of objects. IVARS and CVARS must be lists."
                    ,(caddr listspec)))
          (t (error "Ill-formed: ~s" `(for ,listspec ,exp)))))
 
+(defun symstuff (l)
+   `(concatenate 'string
+      ,@(for (x :in l)
+           (cond ((stringp x)
+                  `',x)
+                 ((atom x)
+                  `',(format nil "~a" x))
+                 ((eq (car x) ':<)
+                  `(format nil "~a" ,(cadr x)))
+                 ((eq (car x) ':++)
+                  `(format nil "~a" (incf ,(cadr x))))
+                 (t
+                  `(format nil "~a" ,x))))))
+
 (defmacro build-symbol (&rest l)
    (let ((p (find-if (lambda (x) (and (consp x) (eq (car x) ':package)))
                      l)))
@@ -622,19 +636,6 @@ a list of objects. IVARS and CVARS must be lists."
                (t
                 `(values (intern ,(symstuff l))))))))
 
-(defun symstuff (l)
-   `(concatenate 'string
-      ,@(for (x :in l)
-           (cond ((stringp x)
-                  `',x)
-                 ((atom x)
-                  `',(format nil "~a" x))
-                 ((eq (car x) ':<)
-                  `(format nil "~a" ,(cadr x)))
-                 ((eq (car x) ':++)
-                  `(format nil "~a" (incf ,(cadr x))))
-                 (t
-                  `(format nil "~a" ,x))))))
 
 (defmacro defproto2 (name &optional ivars cvars parents doc)
   "Syntax (defproto name &optional ivars cvars (parent *object*) doc)
-- 
2.11.4.GIT