Commit 514d575c authored by Liam Healy's avatar Liam Healy

Minor fixes

In defmethod mpointer ((object marray)) just introduced, use
(call-next-method) instead of direct slot access.  Improve punctuation
for error messages.
parent 40e1bfce
;; A "marray" is an array in both GSL and CL
;; Liam Healy 2008-04-06 21:23:41EDT
;; Time-stamp: <2009-03-15 21:22:22EDT marray.lisp>
;; Time-stamp: <2009-03-16 09:36:00EDT marray.lisp>
;; $Id$
(in-package :gsl)
......@@ -67,7 +67,7 @@
within the same native-pointer-protect form as this mpointer
extraction."
(set-struct-array-pointer object)
(slot-value object 'mpointer))
(call-next-method))
(defmethod make-load-form ((object marray) &optional env)
(declare (ignore env))
......
;; GSL errors
;; Liam Healy Sat Mar 4 2006 - 18:33
;; Time-stamp: <2008-12-31 18:32:09EST conditions.lisp>
;; Time-stamp: <2009-03-16 10:36:05EDT conditions.lisp>
;; $Id$
(in-package :gsl)
......@@ -18,7 +18,7 @@
(line-number :initform 0 :initarg :line-number :reader line-number))
(:report
(lambda (condition stream)
(format stream "~a ~a ~@[in ~a at line ~d~]"
(format stream "~a~@[; ~a~] ~@[in ~a at line ~d~]"
(error-text condition)
(explanation condition)
(source-file condition)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment