Before Lisp_Object SSO

bin/tests/class_macro.slime

@@ -3,7 +3,7 @@
   obj)
 
 (define-syntax defclass (name members :rest body)
-  "Macro for creatating classes."
+  "Macro for creating classes."
   (define (underscore sym)
     (string->symbol (concat-strings "_" (symbol->string sym))))
 
@@ -70,12 +70,12 @@
      (- (* z (other get-x)) (* x (other get-z)))
      (- (* x (other get-y)) (* y (other get-x)))))
 
-  (define (printout)
-    (printf "[vector3] (" x  y  z ")"))
+  (define (print)
+    (printf :sep "" "[vector3] (" x  y  z ")"))
   )
 
 (define v1 (make-vector3 1 2 3))
 (define v2 (make-vector3 3 2 1))
 
+(assert (= (type v1) (type v2) :vector3))
 (assert (= (v1 scalar-product v2) 10))
-(assert (= (type v1) :vector3))