[movitz-cvs] CVS update: movitz/parse.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv29683

Modified Files:
	parse.lisp 
Log Message:
Don't intern a symbol, intern its name.

Date: Thu Jan 15 11:13:00 2004
Author: ffjeld

Index: movitz/parse.lisp
diff -u movitz/parse.lisp:1.1.1.1 movitz/parse.lisp:1.2
--- movitz/parse.lisp:1.1.1.1	Tue Jan 13 06:04:59 2004
+++ movitz/parse.lisp	Thu Jan 15 11:13:00 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Nov 24 16:49:17 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: parse.lisp,v 1.1.1.1 2004/01/13 11:04:59 ffjeld Exp $
+;;;; $Id: parse.lisp,v 1.2 2004/01/15 16:13:00 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -222,11 +222,17 @@
     (null
      (error "Illegal keyword formal: ~S" formal))
     (symbol
-     (values formal (intern (string formal) :keyword) nil nil))
+     (values formal
+	     (intern (string formal) :keyword)
+	     nil
+	     nil))
     (cons
      (if (consp (car formal))
 	 (values (cadar formal) (caar formal) (second formal) (third formal))
-       (values (car formal) (intern (car formal) :keyword) (second formal) (third formal))))))
+       (values (car formal)
+	       (intern (string (car formal)) :keyword)
+	       (second formal)
+	       (third formal))))))
 
 (defun decode-aux-formal (formal)
   "Return variable-name and init-form."