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))