slyrus / clem Goto Github PK

From d692c95dada8caa89e14e90c8977cfbd6165a0bc Mon Sep 17 00:00:00 2001
From: Manuel Giraud <[email protected]>
Date: Fri, 30 Jul 2010 15:10:25 +0200
Subject: [PATCH] correct a typo that removed any print

---
 src/print.lisp |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/src/print.lisp b/src/print.lisp
index 9021032..63f8ed2 100644
--- a/src/print.lisp
+++ b/src/print.lisp
@@ -88,7 +88,7 @@
                               (- *matrix-print-row-limit* 2)))
                    (startc 0)
                    (endc (min (1- (cols obj))
-                              (- *matrix-print-col-limit*) 2)))
+                              (- *matrix-print-col-limit* 2))))
                (let ((val-format-spec (if *print-matrix-float-format*
                                           *print-matrix-float-format*
                                           (val-format (class-of obj))))

; caught ERROR:
;   READ error during COMPILE-FILE: Lock on package SB-C violated when interning %ARRAY-DATA-VECTOR while in package CLEM.
;   See also:
;     The SBCL Manual, Node "Package Locks"(in form starting at line: 9, column: 0, position: 159)
...
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001A18103}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "clem" "src" "typed-ops" "defmatrix-mult">

(defun matrix-test-1 ()
  (let ((m (array->complex-matrix #2A((#c(1 1) #c(2 0) #c(3 1))(#c(4 1) #C(0 1) #c(0 6))(#c(7 1) #c(0 1) #c(9 9))))))
    (print-matrix (m+ m m)))
	t)