0.9.2.43:
[sbcl.git] / contrib / sb-posix / designator.lisp
index b7cd3c3..d49c2fd 100644 (file)
@@ -3,16 +3,16 @@
 
 (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)))))