projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.27.3: fix UNWIND-TO-FRAME-AND-CALL
[sbcl.git]
/
contrib
/
sb-posix
/
designator.lisp
diff --git
a/contrib/sb-posix/designator.lisp
b/contrib/sb-posix/designator.lisp
index
b7cd3c3
..
e3c0df7
100644
(file)
--- 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))))
(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)
`(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)
(defun ,(intern (symbol-name name) :sb-posix) (,name)
- (declare (type ,typename ,name))
- (etypecase ,name
- ,@conversions)))))
+ (declare (type ,typename ,name))
+ (etypecase ,name
+ ,@conversions)))))