File psl-1983/3-1/glisp/newdg.sl artifact 31086f116d part of check-in 79abca0c1b



%  Fexpr for defining GLISP functions.
(dm dg (x)
  (prog (result)
   (put (cadr x) 'gloriginalexpr (cons 'lambda (cddr x)))
   (return
     (cond (glcompiledefflg
              (glcc (cadr x))
              (setq result (cons 'df 
                                 (cons (cadr x)
                                       (cdr (get (cadr x) 'glcompiled)))))
              (put (cadr x) 'glcompiled nil)
              result)
           (t (glputhook (cadr x))
              (list 'quote (cadr x)) )) )))



REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]