normalize lisp syntax

normalize.lisp

#| -*- lisp -*-
exec sbcl --script $0 $* # |#
;;≈ç√Ωπøπøˆøˆˆ©ƒ√∂
(set-dispatch-macro-character                                                          
 #\# #\/ (lambda(stream subchar arg)                                                   
           (declare (ignore subchar arg))                                              
           (list (quote quote) (read stream t nil t))))                                
(defun concat(&rest r) (apply #'concatenate #/string r))                               
(import #/(sb-impl::quasiquote sb-impl::unquote-splice                                 
                               sb-impl::unquote-nsplice sb-impl::unquote))             
(set-dispatch-macro-character                                                          
 #\# #\` (lambda(stream subchar arg)                                                   
           (declare (ignore subchar arg))                                              
           (list #/quasiquote (read stream t nil t))))                                 
(set-dispatch-macro-character                                                          
 #\# #\, (lambda(s subchar arg)                                                        
           (declare (ignore subchar arg))                                              
           (case (peek-char nil s)                                                     
             (#\@ (read-char s) (unquote-splice  (read s t nil t)))                    
             (#\. (read-char s) (unquote-nsplice (read s t nil t)))                    
             (t                 (unquote         (read s t nil t))))))                 
(print (unquote 100))                                                                  
(print (unquote-splice 100))                                                           
(print (unquote-nsplice 100))                                                          
(print (quasiquote (quasiquote 100)))                                                  
(print '`,(1 2))                                                                       
(print '`#,(1 2))                                                                      
(terpri)                                                                               
(eval `(format ,@(list t "qwert~d~%" 9991)))                                           
(eval `(format ,@(list t "qwert~d~%" 9992)))                                           
(eval `(format ,@(list t "qwert~d~%" 9993)))                                           
(print ' `( ,format  ,.(list t)  ,@(list t "qwert~d ~s~%" 9994   '|q|w)))              
(print '#`(#,format #,.(list t) #,@(list t "qwert~d ~s~%" 9994   '\qw)))               
(print '#`(#,format #,.(list t) #,@(list t "qwert~d ~s~%" 9994 #/ \qw)))               
(print #/#`(#,format #,.(list t) #,@(list t "qwert~d ~s~%" 9994 #/|q|w)))              
(print #/(\/\/\/w\/w\hw))