home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / usr.bin / lisp / lispnews / text0148.txt < prev    next >
Encoding:
Text File  |  1985-11-10  |  7.8 KB  |  338 lines
  1.  
  2.   If a vector has a 'unique' property on it's property list, then it will
  3. not be copied by 'copy'.
  4.  
  5.   'untrace' will now autoload /usr/lib/lisp/trace.
  6.  
  7.   A number of functions and macros were contributed by the bair group:
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16. (<= 'fx_arg1 'fx_arg2 ...)
  17. (<=& 'x_arg1 'x_arg2)
  18.  
  19.      RETURNS: t iff (> 'fx_arg1 'fx_arg2)  [or  (>&  'x_arg1
  20.               'x_arg2)]  is nil, otherwise nil.  The general
  21.               function, <=, can take  more  than  two  argu-
  22.               ments.
  23.  
  24. (>= 'fx_arg1 'fx_arg2)
  25. (>=& 'x_arg1 'x_arg2)
  26.  
  27.      RETURNS: t  iff  (<  'fx_arg1  'fx_arg2  ...)  [or  (<&
  28.               'x_arg1 'x_arg2)] is nil, otherwise nil.
  29.  
  30.      NOTE: The general function, >=, can take more than  two
  31.            arguments.
  32.  
  33. (litatom 'g_arg)
  34.  
  35.      RETURNS: t iff g_arg is an atom, but not a number.
  36.  
  37. (nequal 'g_x 'g_y)
  38.  
  39.      RETURNS: t iff g_x is not equal to g_y, otherwise nil.
  40.  
  41. (lineread [['p_port] ['s_flag]])
  42.  
  43.      RETURNS: a list consisting of s-expressions on  a  line
  44.               from  the  port p_port (or piport if p_port is
  45.               not given).  If an s-expression (e.g., a list)
  46.               takes more than one line, or a line terminates
  47.               in a space or  tab,  then  lineread  continues
  48.               reading until an expression ends at the end of
  49.               a line.
  50.  
  51.      NOTE: If s_flag is t, then if the first character on  a
  52.            line  is  a  newline, lineread performs a tyi and
  53.            returns nil.  If s_flag is nil  or  not  present,
  54.            lineread  does  a  read  skipping  over any blank
  55.            lines to make sure that an s-expression is  actu-
  56.            ally read.
  57.  
  58.      SIDE EFFECT: lineread uses  read,  advancing  the  port
  59.                   character pointer.
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  69.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81. (defv g_arg1 g_arg2)
  82.  
  83.      EQUIVALENT TO: (set g_arg1 g_arg2)
  84.  
  85. (pp-form 'g_form ['p_port] ['n_lmar])
  86.  
  87.      RETURNS: nil
  88.  
  89.      SIDE EFFECT: g_form  is  pretty-printed  to  the   port
  90.                   p_port (or poport if p_port is not given).
  91.                   If  pp-form  is  also  supplied  with   an
  92.                   integer  (n_lmar),  that  integer  will be
  93.                   used as a left margin setting  (0  is  the
  94.                   default).   This is the  function which pp
  95.                   uses (n_lmar = 0). pp-form does  not  look
  96.                   for  function  definitions  or  values  of
  97.                   variables, it just prints out the form  it
  98.                   is given.
  99.  
  100.      NOTE: This is useful as a top-level-printer, c.f.  top-
  101.            level in Chapter 6.
  102.  
  103. (sload 's_file1 ...)
  104.  
  105.      SIDE EFFECT: The files named are opened for reading and
  106.                   each form is read, optionally printed, and
  107.                   evaluated.
  108.  
  109.      NOTE: What sload prints is controlled  by  the  special
  110.            atom  $sldprint.   If  $sldprint  is t (default),
  111.            then if a form  is  recognizable  as  a  function
  112.            definition,  only  the  function name is printed,
  113.            otherwise  the  whole  form   is   printed.    If
  114.            $sldprint is eq to value, then the result of each
  115.            form's evaluation will also be printed.  Printing
  116.            the  forms'  values  can be controlled by setting
  117.            sload-print equal to the name of the function  to
  118.            be  called.   sload recognizes named functions by
  119.            looking at  the  sloadprintarg  property  of  the
  120.            function  name.   The  value of the sloadprintarg
  121.            property should be the  argument  number  of  the
  122.            function name.  For the standard Franz Lisp func-
  123.            tions, the properties are already set.
  124.  
  125.      EXAMPLE: (defprop def 1 sloadprintarg)   ; This is  the
  126.               default--declaring that
  127.                                               ; the name  of
  128.               the function definition is the
  129.                                               ; first  argu-
  130.               ment.
  131.  
  132.  
  134.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.           The functions described below are  an  alternative
  147.      to  the  gensym facility.  They generate new symbols by
  148.      attaching counter numbers to the ends of  the  symbols'
  149.      names.   An  example  follows  of how the functions are
  150.      used.
  151.  
  152.  
  153.     ____________________________________________________
  154.  
  155.     -> (initsym joe (john 5))       ; initializing new symbol counters
  156.     (joe0 john5)
  157.     -> (newsym john)                ; create a new symbol
  158.     john6
  159.     -> (newsym chuck)               ; symbol need not be initsym'ed
  160.     chuck0
  161.     -> (oldsym john)                ; get current symbol
  162.     john6
  163.     -> (allsym john)                ; get all symbols between 0 and counter
  164.     (john0 john1 john2 john3 john4 john5 john6)
  165.     -> (allsym (john 5))            ; get all symbols between 5 and counter
  166.     (john5 john6)
  167.     -> (remsym joe (john 4))        ; remob all interned symbols
  168.                                     ; associated with joe and from
  169.                                     ; john4 to the current john
  170.                                     ; symbol--returns symbols with symbol counters
  171.                                     ; before doing remsym
  172.     (joe0 john6)
  173.     -> (symstat joe john)
  174.     ((joe nil) (john 3))
  175.     ____________________________________________________
  176.  
  177.  
  178.  
  179.  
  180. (initsym g_arg1 ...)
  181.  
  182.      WHERE:   g_argi is a  list  (n_counteri  s_argi)  or  a
  183.               string  s_argi  (which  is  equivalent  to  (0
  184.               s_argi)).
  185.  
  186.      RETURNS: a list of interned identifiers using the  sym-
  187.               bol  counters  n_counteri, i.e., the result of
  188.               concatenating s_argi to n_counteri.
  189.  
  190.      EXAMPLE: (initsym joe (john 5)) ==> (joe0 john5)
  191.  
  192.      NOTE: See also newsym, oldsym, allsym, remsym, and sym-
  193.            stat functions.
  194.  
  195.  
  196.  
  197.  
  199.  
  201.  
  202.  
  203.  
  204.  
  205.  
  206.  
  207.  
  208.  
  209.  
  210.  
  211. (newsym s_arg)
  212.  
  213.      RETURNS: an interned identifier formed by concatenating
  214.               the  name  s_arg  to  the  symbol  counter for
  215.               s_arg.  The symbol counter is  stored  on  the
  216.               property list of s_arg under symctr.  If there
  217.               is no counter, a counter  of  0  is  used  and
  218.               added  to  the  property list.  Thus, a symbol
  219.               need not be initsymed.
  220.  
  221.      EXAMPLE: (initsym joe (john5)) ==> (joe0 john5)
  222.               (newsym john) ==> john6
  223.               (newsym joe) ==> joe1
  224.  
  225.      NOTE: See also initsym,  oldsym,  allsym,  remsym,  and
  226.            symstat functions.
  227.  
  228. (oldsym s_arg)
  229.  
  230.      RETURNS: the  identifier  using  the   current   symbol
  231.               counter  for s_arg, rather than creating a new
  232.               identifier.  If no symbol counter  exists  for
  233.               s_arg, then s_arg is returned.
  234.  
  235.      NOTE: See also initsym,  newsym,  allsym,  remsym,  and
  236.            symstat functions.
  237.  
  238. (allsym g_arg)
  239.  
  240.      WHERE:   g_arg is a list (s_arg n_counter) or a  string
  241.               s_arg (equivalent to (s_arg 0)).
  242.  
  243.      RETURNS: a list of all the created identifiers  between
  244.               n_counter  and  the current symbol counter for
  245.               s_arg.
  246.  
  247.      EXAMPLE: (allsym john) ==> (john0 john1 john2)
  248.  
  249.      NOTE: See also initsym,  newsym,  oldsym,  remsym,  and
  250.            symstat functions.
  251.  
  252. (remsym g_arg1 ...)
  253.  
  254.      WHERE:   g_argi is a  list  (s_argi  n_counteri)  or  a
  255.               string  s_argi (which is equivalent to (s_argi
  256.               0)).
  257.  
  258.      RETURNS: a list of symbols s_argi with the current sym-
  259.               bol counters.
  260.  
  261.      SIDE EFFECT: remsym remob's all the created identifiers
  262.                   between   zero   and  the  current  symbol
  263.                   counter for s_argi.
  264.  
  265.  
  266.  
  267.  
  268.  
  269.  
  270.  
  271.  
  272.  
  273.  
  274.  
  275.  
  276.  
  277.      NOTE: See also initsym, newsym oldsym, allsym, and sym-
  278.            stat functions.
  279.  
  280. (symstat s_arg1 ...)
  281.  
  282.      RETURNS: a list of pairs consisting of (s_argi symctri)
  283.               where   symctri  is  s_argi's  current  symbol
  284.               counter.
  285.  
  286.      NOTE: See also initsym,  newsym,  oldsym,  allsym,  and
  287.            remsym functions.
  288.  
  289.  
  290.  
  291.  
  292.  
  293.  
  294.  
  295.  
  296.  
  297.  
  298.  
  299.  
  300.  
  301.  
  302.  
  303.  
  304.  
  305.  
  306.  
  307.  
  308.  
  309.  
  310.  
  311.  
  312.  
  313.  
  314.  
  315.  
  316.  
  317.  
  318.  
  319.  
  320.  
  321.  
  322.  
  323.  
  324.  
  325.  
  326.  
  327.  
  328.  
  330.  
  332.  
  333.  
  334.  
  335.  
  336.  
  337.  
  338.