From: Rudi S. <ru...@us...> - 2003-09-21 20:01:34
|
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) |