Changeset 174 for trunk/backmath/string_stuff.lisp

Timestamp:

12/28/07 19:43:51 (4 years ago)

Author:

BCS

Message:

a few more cases in meta.lisp
a MAJOR fix in generate_case.lisp (it would generate bad code)
comment here and there

Files:

• trunk/backmath/string_stuff.lisp (modified) (1 diff)

trunk/backmath/string_stuff.lisp

@@ -23 +23 @@
-)
-
+(defun op_symb (a)
+    (cond  
+        ((equal a '+) "+")
+        ((equal a '-) "-")
+        ((equal a '*) "*")
+        ((equal a '/) "/")
+        ((equal a '+>) "+>")
+        ((equal a '->) "->")
+        ((equal a '*>) "*>")
+        ((equal a '/>) "/>")
+        ((equal a '-r>) "-r>")
+        ((equal a '/r>) "/r>")
+        (t "%invlaid%")
+    )
+)
+
-;;; ?New-line constant
-(DEFCONSTANT nl "