- (assert (member direction '(:input :output))
- (direction)
- "Invalid direction ~S, must be either :INPUT or :OUTPUT" direction)
+ (unless (member direction '(:input :output))
+ ;; FIXME: should be TYPE-ERROR?
+ (error "Invalid direction ~S, must be either :INPUT or :OUTPUT" direction))