X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-posix%2Fdesignator.lisp;h=e3c0df7524cde548639094a4d5ee156528f9ca4a;hb=d07e355f50300d64b282cb9c71fa88441c0b9a3d;hp=b7cd3c3950776d7e921687d0f6a46e7e8e4bee1a;hpb=1f7401c39a46466c307938c8f6cf7db224741981;p=sbcl.git

diff --git a/contrib/sb-posix/designator.lisp b/contrib/sb-posix/designator.lisp
index b7cd3c3..e3c0df7 100644
--- a/contrib/sb-posix/designator.lisp
+++ b/contrib/sb-posix/designator.lisp
@@ -1,18 +1,18 @@
-(in-package :sb-posix-internal)
+(in-package :sb-posix)
 (defvar *designator-types* (make-hash-table :test #'equal))
 
 (defmacro define-designator (name result &body conversions)
   (let ((type `(quote (or ,@(mapcar #'car conversions))))
-	(typename (intern (format nil "~A-~A"
-				  (symbol-name name)
-				  (symbol-name :designator))
-			  #.*package*)))
+        (typename (intern (format nil "~A-~A"
+                                  (symbol-name name)
+                                  (symbol-name :designator))
+                          #.*package*)))
     `(progn
       (eval-when (:compile-toplevel :load-toplevel :execute)
-	(deftype ,typename () ,type)
-	(setf (gethash ',name *designator-types*) ',result))
+        (deftype ,typename () ,type)
+        (setf (gethash ',name *designator-types*) ',result))
       (defun ,(intern (symbol-name name) :sb-posix) (,name)
-	(declare (type ,typename ,name))
-	(etypecase ,name
-	  ,@conversions)))))
+        (declare (type ,typename ,name))
+        (etypecase ,name
+          ,@conversions)))))