
                              Y L i s p  3.6

                  =    =


           , -
        YLisp 3.6,    ,  -
        [CLTL],  ,  -
              .   
             ,   , 
      (F1   ).

     - (rolling)
     ~~~~~~~~~~~~~~~~~~~~~~~~~~~
       - (rolling out)   () -
          :   -
     ,     -    .   --
      (rolling in)       
       .

     ,         ".ROL".
       ,   .ROL-    -
     :  ,  ,    
     ..  -      
        ,        -
      (spawn).      ,  
          .

     -   *roll-pathname*       
       ROL-,    a       
       .

     -  rollin   ,     -
       .

     -  rollout        -  
         .

       (spawn)
     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      YLisp          
     ()      .    
        spawn,       -  
      ,    -    -
          .

     
     ~~~~~~~~
       YLisp          ,
               (    spawn). 
                  
        *editor-pathname*.  
             ed
        , , .  
           rollout.

       (break-loop debugger)
     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
       YLisp       ,
      

     -   ,      ,

     -         (  -
       ),   ( ,   ),

     -  ,   ,

     -     ,

     -     ,  ,

     -    ,      .

            ,     
     :

       1)  -      , -
              ,       
          .      ,
                .

       2)   -        -
           ,   .     
           ,   `'  
           ,       (step)
             .

             

               "(return <expr>)"

               "debug>"   
          "break>".

      ,        -
      -     .

      {  }
     ~~~~~~~~~~~~~~~~
            -
        ( ).       
         ,  YLisp   -
       (super parentheses) -  '{'  '}'.  -
         Interlisp  FranzLisp.    ,
        .  '{'      
       ,   '('.     - 
     .  '}'    ,  "" -
         ')'.    -
      S-:

          {a b (c d (e f}               (a b (c d (e f)))
          {a {b (1 2} (c d (e f}        (a (b (1 2)) (c d (e f)))

               (,        
     *print-pretty*   nil)        
         ,   -
            .

            .

     -          
         read      .

     -    #{          ,   
         #(.   

               #{1.0 2.0 (3.0 4.0}

       .   

          {1.0 2.0 #(3.0 4.0}.

     -  #{ }    YLisp      
          (.  CLOS.TXT),     
        *print-pretty*.


          (build project)
     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      -, ,      -
     ,    ,   ,   -
      .         load.
       YLisp   :verbose     -
      :     ,    nil,  
              ,    
     *terminal-io*.

     -         -
            (ala    make). -
       *modules*  ,  ,    -
         ,     
         (universal time),      -
        .  require    
     *modules* (    )    
       ,      .

      ,  
     ~~~~~~~~~~~~~~~~~~~~~~~~~~
          Win32,   
       .   ,   
      .      - 
     , ,    .   -
           .   
            :  
      (    , 
       ..)     (  
       ).      
     ESC (   ).

       (keymaps)
     ~~~~~~~~~~~~~~~~~~~~~~~~
              ,  
         ,    ,  .
      YLisp     ,   -
     ,      (  ,      
     Control, Alt  Shift),        (-
     ,   function).       -
      ,      .

     *keymap*            .

     *break-keymap*   ,     -
                     .

     *step-keymap*        (step).

     *debug-keymap*   ,    .

       ,       , -
              -
          defkey.    
            :

                     (dotimes (i 10) (print (read-char)))


      -,  
     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
         "".    
          :  *terminal-io*  (   *query-io*  
       ,        ),  *status-output* 
     *gc-output*.         ,      *terminal-io*   
     *gc-output*      .  *terminal-io*    
          CLTL2,    *gc-output*   -   ,      
          .       
       MAKE-WINDOW,    -   CLOSE.    
                 .      
     ,          .

     (MAKE-WINDOW  rect  color)  -     , 
       rect  #(top  left  bottom  right).   
         . Color:  -  BIOS - : ,
             

            7 6 5 4 3 2 1 0
            | | | | | | |  
            | | | | | |  
            | | | | |   
            | | | |   
            | | |  
            | |  
            |  
              

            ,
     ,  #x1D.  ,       
     .              
     .

     (CLOSE stream) -    .  
       ,             . 
             .

     (WINDOW-SIZE  wstream)  -  ,    setf,  
        #(rows columns),   , 
      wstream.     ,   
        wstream NIL.

     (WINDOW-POSITION  wstream)  -  ,      setf -  
        .  , ,  
       ,           .
         - #(0 0).   ,   
          0, , ,  
      ,  .   ,  
       .

     (CURSOR-POSITION  wstream)  -  ,      setf -  
       ,     . 
             .

     (SET-CURSOR-SHAPE  shape)  -      .  shape
         : NIL -  , 
     T/NIL,        ,  T  -  
     ,    T/NIL,  fixnum  > (<) 0 -   
           (    ) 
      () .  +/-   .

     (WINDOW-COLOR  wstream)  -  ,      setf  -    
          .    
     .

     (CLEAR-WINDOW wstream) -      
     .

     (WINDOW-SHOT  wstream)  -          ,
         .

     (WINDOW-RESTORE    wstream)    -         ,
              ,       
       .        
     .                : 1 -
         ,       
     ;  2  -         
         . CLOSE     WINDOW-RESTORE  
        ,   .

       (VIEWSTRINGS  strings  &optional  (title  "")  (prompt "")) 
     (VIEWOBJ  obj  &optional  (title  "") (prompt "")) -  
              ()  -      
     .

           read,  read-line   ..   
           ,        ,
     ,      read-char,   read-char-no-hang,  peek-char    
                    .
         FORMAT      : ~n(...~)
         n.   ,   CLTL2
      ,    X3J13,    .

        
     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

     *arguments* -   - ,    
     .    -     
     .

     (CURRENT-DIRECTORY) -   

     (OSDIRECTORY path) -        
                           OSDIRREC

     (SET-CLIPBOARD str) -   str    Windows.
                           : t - , nil - .

     (GET-CLIPBOARD) -   ,   
                          nil,       
                        .

     
     ~~~~~~~~~~~~~~~

        -          -
     thfuncall  -    funcall,     
     .      -   .
                        -.
              ylisp  windows-
     .

           (  )  -    .
       ,   ,  -    .
            ,    
         ,       -,
     (,    nreverse      ). 
             , 
           .

         ,          
     .  ,     ,  ,
                ,   
        .                
     -.        
     .          ,   
                     
     .   -  ,  sleep -  
     .

       -   :  
         ""        
     .   /  ,   
       / (  ).

