Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun print-alphabet (x y)
- (setq alphabet (open "alphabet" :direction :output))
- (loop
- (cond ((equal x y) (close alphabet)))
- (incf x)
- (princ (code-char x) alphabet) (terpri alphabet) ) )
Advertisement
Add Comment
Please, Sign In to add comment
