Author: hhubner Date: 2006-07-16 04:55:39 -0400 (Sun, 16 Jul 2006) New Revision: 1964
Modified: branches/xml-class-rework/bknr/src/data/blob.lisp Log: Correct wrong logic for automatic type determination
Modified: branches/xml-class-rework/bknr/src/data/blob.lisp =================================================================== --- branches/xml-class-rework/bknr/src/data/blob.lisp 2006-07-16 08:54:30 UTC (rev 1963) +++ branches/xml-class-rework/bknr/src/data/blob.lisp 2006-07-16 08:55:39 UTC (rev 1964) @@ -146,7 +146,7 @@ (blob-from-stream blob in)))
(defun make-blob-from-file (pathname &optional (class 'blob) &rest initargs) - (when (getf initargs :type) + (unless (getf initargs :type) (setf (getf initargs :type) (pathname-type pathname))) (let ((blob (apply #'make-object class initargs)))