[bknr-cvs] r1964 - branches/xml-class-rework/bknr/src/data

[bknr at bknr.net]

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)))