Some doc and display when a type is unimplemented - clic - Clic is an command line interactive client for gopher written in Common LISP
 (HTM) git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) Tags
 (DIR) README
 (DIR) LICENSE
       ---
 (DIR) commit 8ac8cdfbdce8d9159b195f1d1a15d9988033f29f
 (DIR) parent 6faa6c27c313af26ce74ba3f3df5f599ee08ed0e
 (HTM) Author: Solene Rapenne <solene@perso.pw>
       Date:   Thu, 16 Nov 2017 12:09:35 +0000
       
       Some doc and display when a type is unimplemented
       
       Diffstat:
         M clic.lisp                           |      36 +++++++++++++++++++------------
       
       1 file changed, 22 insertions(+), 14 deletions(-)
       ---
 (DIR) diff --git a/clic.lisp b/clic.lisp
       @@ -87,7 +87,7 @@
          (format t "~3A| ~a~a~a~%" (if line-number line-number "") (get-color color) text (get-color 'white)))
        
        (defmacro check(identifier &body code)
       -  "Syntax to make when easier for formatted-output func"
       +  "Macro to define a new syntax to make 'when' easier for formatted-output function"
          `(progn (when (string= ,identifier line-type) ,@code)))
        
        (defun split(text separator)
       @@ -151,38 +151,46 @@
                       (print-with-color text))
        
                ;; 5 DOS Binary archive
       -        (check "5" 'unimplemented)
       +        (check "5"
       +               (print-with-color "selector 5 not implemented" 'red))
        
                ;; 6 Unix uuencoded file
       -        (check "6" 'unimplemented)
       +        (check "6" 
       +               (print-with-color "selector 6 not implemented" 'red))
        
                ;; 7 Index search server
       -        (check "7" 'unimplemented)
       +        (check "7" 
       +               (print-with-color "selector 7 not implemented" 'red))
        
                ;; 8 Telnet session
       -        (check "8" 'unimplemented)
       +        (check "8" 
       +               (print-with-color "selector 8 not implemented" 'red))
        
                ;; 9 Binary
       -        (check "9" 'unimplemented)
       +        (check "9" 
       +               (print-with-color "selector 9 not implemented" 'red))
        
                ;; + redundant server
       -        (check "+" 'unimplemented)
       +        (check "+" 
       +               (print-with-color "selector + not implemented" 'red))
        
                ;; T text based tn3270 session
       -        (check "T" 'unimplemented)
       +        (check "T" 
       +               (print-with-color "selector T not implemented" 'red))
        
                ;; g GIF file
       -        (check "g" 'unimplemented)
       +        (check "g" 
       +               (print-with-color "selector g not implemented" 'red))
       +
       +        ;; I image
       +        (check "I"
       +               (print-with-color "selector I not implemented" 'red))
        
                ;; h http link
                (check "h"
                       (print-with-color (concatenate 'string
                                                      text " " uri)
       -                                 'http "url"))
       -
       -        ;; I image
       -        (check "I" 'unimplemented)))))
       -
       +                                 'http "url"))))))
        
        (defun getpage(host port uri)
          "connect and display"