Eventually it'll even be used for something.
(args
(pop args))
(t
- (error "missing argument"))))))
- (case (char arg i)
- (#\h (format t "usage: ~A FILE ...~%"
- (pathname-name *progname*)))
- (t (error "unknown option `-~A'" (char arg i))))))
+ (error "missing argument")))))
+ (case (char arg i)
+ (#\h (format t "usage: ~A FILE ...~%"
+ (pathname-name *progname*)))
+ (t (error "unknown option `-~A'" (char arg i)))))))
(t (push arg args) (return)))))
(dolist (arg args)
(let ((*package* pkg))