All source files converted to LF (#315)
* All source files converted to LF Also, HPRINT: EQUALALL knows about CL arrays FILEIO: STREAM record with fields for external format functions * Delete makeinit.dribble * Converted CR to LF on internal/library and docs/Documentation Tools
This commit is contained in:
@@ -1 +1,35 @@
|
||||
(FILECREATED "19-Feb-87 09:57:38" {QV}<LFG>PARSER>NEXT>LABEL.;1 986
|
||||
(FILECREATED "19-Feb-87 09:57:38" {QV}<LFG>PARSER>NEXT>LABEL.;1 986
|
||||
|
||||
previous date: " 5-JAN-83 18:06:12" {ERIS}<LISP>KOTO>LIBRARY>LABEL.;1)
|
||||
|
||||
|
||||
(* Copyright (c) 1983, 1987 by Xerox Corporation. All rights reserved.)
|
||||
|
||||
(PRETTYCOMPRINT LABELCOMS)
|
||||
|
||||
(RPAQQ LABELCOMS ((FNS DOLABEL)
|
||||
(ALISTS (LAMBDATRANFNS LABEL))
|
||||
(ADDVARS (LAMBDASPLST LABEL))
|
||||
(FILES (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)
|
||||
LAMBDATRAN)))
|
||||
(DEFINEQ
|
||||
|
||||
(DOLABEL
|
||||
[LAMBDA (X) (* lmm " 5-JAN-83 18:04")
|
||||
(PROG [(NAME (CAR (CDR X)))
|
||||
(ARGS (CADR (CDR X)))
|
||||
(FORMS (CDDR (CDR X]
|
||||
(RETURN (BQUOTE (LAMBDA , ARGS ([LAMBDA (, NAME)
|
||||
(APPLY* , NAME ,. ARGS]
|
||||
(FUNCTION (LAMBDA , ARGS ,. FORMS])
|
||||
)
|
||||
|
||||
(ADDTOVAR LAMBDATRANFNS (LABEL DOLABEL))
|
||||
|
||||
(ADDTOVAR LAMBDASPLST LABEL)
|
||||
(FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)
|
||||
LAMBDATRAN)
|
||||
(PUTPROPS LABEL COPYRIGHT ("Xerox Corporation" 1983 1987))
|
||||
(DECLARE: DONTCOPY
|
||||
(FILEMAP (NIL (445 754 (DOLABEL 455 . 752)))))
|
||||
STOP
|
||||
|
||||
Reference in New Issue
Block a user