From 5bf004dae31479767c4e609754b3b26eaa4a675d Mon Sep 17 00:00:00 2001
From: AJ Rossini <blindglobe@gmail.com>
Date: Thu, 4 Sep 2008 16:35:38 +0200
Subject: [PATCH] use typep instead of (type)-p -- cleaner, if more verbose.

---
 src/numerics/optimize.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/numerics/optimize.lisp b/src/numerics/optimize.lisp
index 9a10736..627006c 100644
--- a/src/numerics/optimize.lisp
+++ b/src/numerics/optimize.lisp
@@ -282,7 +282,7 @@ Make a copy of an minfo instance."
 	(internals (copy-seq (slot-value 'internals))))
     (dotimes (i (length internals))
 	     (let ((x (aref internals i)))
-	       (if (sequencep x)
+	       (if (typep x 'sequence)
 		   (setf (aref internals i) (copy-seq x)))))
     (send obj :add-slot 'internals internals)
     obj))
-- 
2.11.4.GIT