Corrected the definition of ps:length.

Thanks to Daniel Gackle for pointing out the problem and the most
obvious solution.

diff --git a/src/lib/ps-macro-lib.lisp b/src/lib/ps-macro-lib.lisp
index 73090ea..51ea696 100644 (file)
--- a/src/lib/ps-macro-lib.lisp
+++ b/src/lib/ps-macro-lib.lisp
@@ -55,7 +55,7 @@
 ;;; Data structures
 
 (defpsmacro length (a)
-  `(.size ,a))
+  `(@ ,a length))
 
 ;;; Misc