From c37420628ec76a10a287d81e8f0902c6b6599c84 Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Wed, 23 Dec 2009 14:35:15 +0100 Subject: [PATCH] fixed typo, sketch commented-out proposed code. Signed-off-by: AJ Rossini --- src/numerics/optimize.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/numerics/optimize.lisp b/src/numerics/optimize.lisp index 1239dec..36e1645 100644 --- a/src/numerics/optimize.lisp +++ b/src/numerics/optimize.lisp @@ -116,7 +116,8 @@ (defun new-minfo-internals (f x &key scale ((:derivstep h) -1.0)) (check-sequence x) - (check-real x) + (check-real x) ;; becomes: + ;; (assert (reduce #'and (map #'(lambda (x) (or (typep x 'real) (typep x 'double)) x))) "x not real seq") (check-one-real h) (let ((n (length x))) (when scale @@ -181,7 +182,7 @@ (setf (proto-slot-value 'internals) (apply #'new-minfo-internals args))) #-xlisp (defmeth minfo-proto :maximize (&rest args) - (apply #'minfo-maximize (proto-proto-slot-value 'internals) args)) + (apply #'minfo-maximize (proto-slot-value 'internals) args)) (defmeth minfo-proto :x () (aref (proto-slot-value 'internals) 3)) (defmeth minfo-proto :scale () (aref (proto-slot-value 'internals) 4)) -- 2.11.4.GIT