[cparse-cvs] CVS update: cparse/cmu-alien.lisp

[Christian Lynbech]

Update of /project/cparse/cvsroot/cparse
In directory common-lisp.net:/tmp/cvs-serv27024

Modified Files:
	cmu-alien.lisp 
Log Message:
fixed missing arguments for condition 'alien-not-implemented'. changed use of 'char' into 'cl:schar'.
Date: Fri May 14 17:19:42 2004
Author: clynbech

Index: cparse/cmu-alien.lisp
diff -u cparse/cmu-alien.lisp:1.1.1.1 cparse/cmu-alien.lisp:1.2
--- cparse/cmu-alien.lisp:1.1.1.1	Mon Mar 18 03:04:59 2002
+++ cparse/cmu-alien.lisp	Fri May 14 17:19:42 2004
@@ -52,7 +52,8 @@
   (intern (c-name-to-lisp-name csym) package))
 )
 
-(define-condition alien-not-implemented (cparse-error))
+(define-condition alien-not-implemented (cparse-error)
+  (format-string &rest format-args))
 
 (defvar *struct-tags*)
 
@@ -78,7 +79,7 @@
       (dolist (file files)
 	(format cpp-file-stream
 		"#include \"~A\"~%"
-		(if (eql (char file 0) #\/)
+		(if (eql (cl:schar file 0) #\/)
 		    file
 		    (concatenate 'string default-dir file))))
       (close cpp-file-stream))