[Maxima-commits] CVS: maxima/src transs.lisp,1.32,1.33

[Andreas E. <ar...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs16:/tmp/cvs-serv8378/src

Modified Files:
	transs.lisp 
Log Message:
replaced the call to sprin1 - an undefined function - with prin1.


Index: transs.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/transs.lisp,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- transs.lisp	27 Apr 2007 19:03:34 -0000	1.32
+++ transs.lisp	29 Apr 2007 22:09:27 -0000	1.33
@@ -134,8 +134,8 @@
 		       (cond (tr-abort
 			      (setq t-error (print-abort-msg item 'compfile)))
 			     (t
-			      (cond ($compgrind
-				     (mformat transl-file "~2%;; Function ~:@M~%" item)))
+			      (when $compgrind
+				(mformat transl-file "~2%;; Function ~:@M~%" item))
 			      (print* t-item))))))
 	      (setq out-file-name (rename-tf newname))
 	      (to-macsyma-namestring out-file-name))
@@ -385,12 +385,11 @@
 	(t
 	 (setq flag (and $tr_semicompile
 			 (not (eq (car p) 'eval-when))))
-	 (when flag (princ* '|(|) (princ* 'progn) (terpri*))
-	 (cond ($compgrind
-		(sprin1 p))
-	       (t
-		(prin1 p transl-file)))
-	 (when flag (princ* '|)|))
+	 (when flag (princ* #\() (princ* 'progn) (terpri*))
+	 (if $compgrind
+	     (prin1 p)
+	     (prin1 p transl-file))
+	 (when flag (princ* #\)))
 	 (terpri transl-file))))
 
 (defun princ* (form)
@@ -446,10 +445,8 @@
 	   $tr_semicompile source)
   (cond ($transcompile
 	 (update-global-declares)
-	 (if $compgrind
-	     (mformat
-	      transl-file
-	      ";;; General declarations required for translated Maxima code.~%"))
+	 (when $compgrind
+	   (mformat transl-file ";;; General declarations required for translated Maxima code.~%"))
 	 (print* `(declare . ,declares)))))
 
 (defun print-abort-msg (fun from)