Update of /cvsroot/sbcl/sbcl/contrib/sb-simple-streams
In directory sc8-pr-cvs1:/tmp/cvs-serv4234/contrib/sb-simple-streams
Modified Files:
strategy.lisp
Log Message:
0.8.3.85:
* Merged patch "speeding up simple-stream creation" from David
Lichteblau (sbcl-devel Sep 20, 2003)
* Conditionalize comments in sb-posix constants definition on
sb-doc
Index: strategy.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-simple-streams/strategy.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- strategy.lisp 7 Sep 2003 14:10:26 -0000 1.6
+++ strategy.lisp 21 Sep 2003 20:01:30 -0000 1.7
@@ -566,10 +566,10 @@
;;; function names), we make do with symbol frobbing.
(defun %sf (kind name format &optional access)
(flet ((find-strategy-function (&rest args)
- (ignore-errors
- (fdefinition (find-symbol (format nil "~{~A~^-~}"
- (mapcar #'string args))
- #.*package*)))))
+ (let ((name
+ (find-symbol (format nil "~{~A~^-~}" (mapcar #'string args))
+ #.*package*)))
+ (if (fboundp name) (fdefinition name) nil))))
(or (find-strategy-function kind name format access)
(find-strategy-function kind name format)
(find-strategy-function kind name :ef access)
|