perm filename ADDDIS.LSP[COM,LSP] blob sn#807420 filedate 1985-12-15 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(defun add-dis fexpr (files)
C00005 ENDMK
C⊗;
(defun add-dis fexpr (files)
 ;; Takes a list of files and the address to add on the next line
 ;; Attach the next line
 (em:ecommands '(α - α V ))
 (em:ecommands '(⊗ ↔ ⊗ ↔))
 (cond ((equal files '(all))
	(setq files '(common objects windows validation errors graphics
 			     charter multiprocessing subsets iteration foreign))))
 (do ((files files (cdr files))
      (successes ()))
     ((null files) (em:ecommands '(α V)) successes)
    (let ((file-command
	   (cadr (assoc (car files)
			'((common
			   (α π α ε C O M L S P /. D I S /[ P /, D O C // e ⊗ ↔))
			  (objects
			   (α π α ε C L O B O R /. D I S /[ P /, D O C // e ⊗ ↔))
			  (windows
			   (α π α ε C L W I N D /. D I S /[ P /, D O C // e ⊗ ↔))
			  (graphics
			   (α π α ε C L G R A P /. D I S /[ P /, D O C // e ⊗ ↔))
			  (subsets
			   (α π α ε C L S U B S /. D I S /[ P /, D O C // e ⊗ ↔))
			  (validation
			   (α π α ε C L V A L I /. D I S /[ P /, D O C // e ⊗ ↔))
			  (errors
			   (α π α ε C L E R H A /. D I S /[ P /, D O C // e ⊗ ↔))
			  (charter
			   (α π α ε C L C H R T /. D I S /[ P /, D O C // e ⊗ ↔))
			  (multiprocessing
			   (α π α ε C L M U L T /. D I S /[ P /, D O C // e ⊗ ↔))
			  (iteration
			   (α π α ε C L I T E R /. D I S /[ P /, D O C // e ⊗ ↔))
			  (foreign
			   (α π α ε C L F O F U /. D I S /[ P /, D O C // e ⊗ ↔)))))))
	 (cond (file-command
		(push (car files) successes)
		(em:ecommands file-command)
		(em:ecommands '(α g ⊗ ↑ α c α g))
		(em:ecommands '(α e))
		(em:ecommands '(⊗ ↑ α ⊗ = /, ⊗ ↔))
 		(em:ecommands '(α 1 α X E X I T ⊗ ↔))
		)))))