bound_emacs_macros_.bind 08/20/86 2308.7rew 08/20/86 0701.4 8523 /* *********************************************************** * * * Copyright, (C) Honeywell Information Systems Inc., 1986 * * * *********************************************************** */ /* Bindfile for Emacs compilation macros */ /* HISTORY COMMENTS: 1) change(85-01-30,Margolin), approve(86-02-24,MCR7186), audit(86-08-12,Harvey), install(86-08-20,MR12.0-1136): Created. END HISTORY COMMENTS */ Objectname: bound_emacs_macros_; Addname: e_define_command_, e_internal_macros_, e_macros_; Order: e_macros_, e_define_command_, e_internal_macros_; Global: retain; /* They're all Lisp object segs, which require that you retain everything. */ objectname: e_macros_; objectname: e_define_command_; objectname: e_internal_macros_; /* End; */  e_macros_ 08/20/86 2308.7re 08/20/86 2300.0 105084 ?@@?@PN @@?@?@?@@?@P@@?@?@?@P?@@2P?@@?@PN @@?@?@?@@?@P @@?@?@?@P?@@2P?@@?@PN @@?@?@?@@?@P@@?@?@?@P?@@2P @?@@?@PN @@?@?@?@@?@P?P@?@?P?@?P@?@@@@@P?@?@@:P@@?@?@@special_ldd>install>MR12.0-1136>e_macros_.lisp>ldd>include>backquote.incl.lisp>ldd>include>defmacro.incl.lispt !zThere is no true mark.$Wrong number of args in macro form: egjpsvy|  $(*/469>ADHLOQTY[]acgjmpsvy|  '07<@EHLOV[_flt}tprog1protect MACRO buildalways&alwaysfailuresuccess&successbodyline-control:bufferread-only-flagreversequotecompilespecialdeclareboundporend-local-displaysdisplay-buffer-as-printoutinit-local-displaysputpropcurrent-buffertemporary-buffergo-to-or-create-buffergensymsave-excursion-bufferbuffer-modified-flag lefthand-charcurcharback-at<1- dont-stash mark-reachedwith-the-mark-lastandbolp firstlinepeolp lastlinepgetcharnreverseeqelsereturnatMultics-Emacs-ifder-wahrer-mark move-mark point>markp go-to-markcondsave-excursion display-errordovalueprevious-buffer&failureprotect with-mark release-markset-marksetqprognunwind-protectletget whiteness= curpointposcurlinellengtherrordisplacefail-actsstatusfeaturee-macros protect macrodefpropmacrowithout-line-control macrowithout-line-control defvar macrodefvardisplay-as-printout macrodisplay-as-printoutwithout-modifying macrowithout-modifyingdispatch-on-lefthand-char macrodispatch-on-lefthand-char back-at macroat macroif-back-at macro if-back-atdo-times macrodo-timeswithout-saving macrowithout-savingwalk-through-region macrowalk-through-regionat-beginning-of-buffer macroat-beginning-of-bufferat-end-of-buffer macroat-end-of-buffergetlifexprsubrMultics-Emacs-if macrodispatch-on-current-char macrodispatch-on-current-charstop-doing macro stop-doingat-white macroat-white if-at macroif-atwith-the-mark-last macrodo-forever macro do-foreverprotect-excursion macroprotect-excursionsave-excursion-buffer macrosave-excursion-on-error macrosave-excursion-on-errorsave-excursion macrowith-mark macroat-white-char macro at-white-char eolp macro bolp macro !!"&*+),-)"255758;5==>>>C"IHL%KJKJSRQVT@UVWXUVYZUV[\UV]^UV_`UVa#UVb3UVcdUVe f U Vg hUVijUVklUVmnUprqV !"#$o%p'4)V+,*-H.V01/2(345&67Vs94:U;Vt=u>U?VvAwBUCVxEyFUGVzI{JUKV|M(NUOV}Q~RUSVUVUWVYZU[V]^U_Va:bUcVeAfUgVijUkVm,nUoVq*rUs.E"$;R.E\F|(`TPONMGFED)BA8@?=><:964310/.('&%$#  ^N>.=tplhd`\XT}P|LzHxDv@t<s8mkig ecba_][YWT< @ Bobj_map ]  e_internal_macros_ 08/20/86 2308.7re 08/20/86 2257.4 65160 ?@@?@PN @@?@?@?@@?@P@@?@?@?@!P?@@2P?@@?@PN @@?@?@?@@?@P @@?@?@?@!P?@@2P@?@@?@PN @@?@?@?@@?@P?PP?@@@:P@?@@:P?@?@@8fLZCL PJNT P|JL\P{JK>special_ldd>install>MR12.0-1136>e_internal_macros_.lisp>ldd>include>sharpsign.incl.lisp>ldd>include>defstruct.incl.lisp>ldd>include>defmacro.incl.lisp "#;BJN !$Wrong number of args in macro form: cVZ`einsvz} #'*.35;@FJPTY]cfhjmptvz fobj-pathabsolute-pathnamefilecons-length fobj-seg0filecons-pointer fobj-contentsfirst eline-nextcurlinelengtherrordisplaceeline-previousfail-actquotepacked-pointerputpropalter-packed-pointerdefstruct-expand-alter-macromacrodefpropdefstruct-nameonefixnum bit-offset%%defstruct-empty%%notypepptr-bit-offset seg-numberpptr-seg-number word-offsetpptr-word-offsetmake-packed-pointerevalcompileloadpptr-defstruct-descriptiondefstruct-expand-cons-macrodefstruct-expand-ref-macrodefstruct-slotpathnamealter-pathnamelist directory pn-directoryentrypn-entry component pn-componentabs-path pn-abs-path make-pathnamepn-fobj-abs-path macro fobj-abs-pathfobj-length macro fobj-lengthfobj-pointer macro fobj-pointerfobj-seg0 macro file-objectalter-file-objectcontentspathuidfobj-uidfcb-ptr fobj-fcb-ptrdtcm fobj-dtcmoriginal-accessfobj-original-accessmake-file-objectfobj-mark alter-marktreeeline mark-elineposition mark-position make-markmark-fileconsalter-fileconspointer make-filecons filecons-nextline macronextlineprevline macroprevline alter-elineeline-contentspreviousnext make-elineeline-Vprtvx z{y|w}~"!('&%*'&),'&+-0/.1$#2!-3 "-!(4 %5(!*4 )5*!,4 +5,!67 "67!:'   9 < ' ;>' =@'? !"# $A&0/(.)+,-./B071*234656789':;%<=8>#?2@A6B!CAE3G IJHKFLM"6OAP!Q:S4U WXVYTZ[695]^:_!`<b4d fgehcij6;5lm<n!o>q4s uvtwrxy6=5{|>}!~@4 6?5@! CD! EF! GH! I!JK "JK!'&L '&MO'&NQ'PS'&RU' TV0/.WKJ 8#2J!V3 "JV !  4  JL5! 4  !"#JM5%& '!(O*4, ./-0+12JN545O6!7Q94; =><?:@AJP5CDQE!FSH4J LMKNIOPJR5RSST!UUW4Y [\Z]X^_JT5abUc!dXfYhj lmkniop"XrYs!t\v'w&xyz[{^}'~&]|_0/.`YXZ#2X!_3 "X_!\4 X[5\!^4 X]5^!ab "ab!'&c'&d0/.ebaZ # 2  a !d3 "ad!4 "#!$%&ac5()*!+-4/ 1203.45a5789!: f<g=!> h@iA!B[DjFH JKILGMN"[PjQ!RkT'UVWXLY['\]^_l`b'cdefmghaiZjnl0/n.oqrstuovjwpxyz[{|}~mkZ#2[!n3 "[n!k4 [L5k!4 [l5!4 [m5!.W sq ^N>XSOECh?f;6,'uqge`VQGB83)$ IGECzpka\RNDu  @ Bobj_map   e_define_command_ 08/20/86 2308.7re 08/20/86 2257.4 150732 @?PP?@@ @?@?@?@?@?@?@?@?@?@?@?@?@@@?@@?@kP@ @P?PP@?@@ @?@?@?@?P?@?P@?@?@O@!?@@ O@?@@?@?ܟ@?@mP @ @?@ @?@?@?@?@?@?@?ԟ@?@oP?@?PPP?@?P@?@ O@!?@@ O@?@@?@?ܟ@?@mP @ @?@ @?@?@?@?@?@?@?ԟ@?@oP?@?PPP?@?P@?@O@!?@@ O@?@@?@?ܟ@?@mP @ @?@ @?@?@?@?@?@ӟ?@?ԟ@?@oP?@?PPP?@?P@?@O@!?@@ O@?@@?@?ܟ@?@mP @ @?@ @?@?@?@?@?@?@?ԟ@?@oP?@?PPP?@?P@?@O@O@g?@@ O@@@?@?ܟ@?@mP?PQ?PO@.?P@?@?P?@?ޟ@@MO@OO@?@@ O@M@@?@?ܟ@?@mP?P?@?P@?@?@)Q@@?@S@?@?ڟ@?@yP @?@A?@?@sP?@@?@uP@ O@ ?@@?@U@?@?ڟ@?@yP?@@:P?@@?@?@?@?@@ O@?@@?@P?@?ҟ@?@?֟@?@?ԟ@?@?@?@?ܟ@?@?ڟ@?@?؟@?@?П@?@?Ο@?@?̟@?@?ʟ@?@?Ɵ@?@P?@@2P ' ' @o@?@?P?@?@qO@?@@?@P?@?@?@s@?@?@?ޟ@?@P?@P?@@ @?@?P@@ O@u@ @?@w@?@?@?@?@?@?@?@P?PPO@/?PP@?@?P?@?@@ O@<O@::?@?@@ O@7)?@?@?@@ O@1!?@?@?@@ O@?@@ O@(?@@BP?@@BP?@@BP?@O@?@?@@BP?@@DP?@?@@2P ' ' '@ ' ' ' ' ' ' '@@ @?@@?@۟@?@?@?@?@?@?@?@oP?@?P?@?P@?@?P?@?@@ O@,* @?@6?@?@sP?@@?@uP@ O@?@O@O@ ?@O@@@?@?P@?@@@?@@?@?@?@?@?@P@?@?@@:P?@@?@?@@:P?@@?@?@?@@2P ' @?@@ O@ ?@@ O@ @@?@@?@?֟@?@P?@@ O@ ?@@ O@  @@?@@?@?֟@?@P?@@ O@ @?@?@@ O@ ?@@ O@  @@?@@?@?֟@?@P?@@ O@ ?P1O@  @@?@@?@?֟@?@P?@@ O@ ?P3O@ @@?@@?@?֟@?@P?@@ O@5@?@@ @?@?@@ O@@?@PΟ?@?@@ O@˟ǟ?@?@?P@@ O@ğ?@?@?P?@-O@O@ 1O@3O@?@?@?@@ O@?@?@?@@ O@?@?@?@@ O@?@?@?@@ O@?@?@?@-O@?@?@?@1O@y?@?@?@@ O@q?@?@@@@Po@?@@:P?ڟ@?@@special_ldd>install>MR12.0-1136>e_define_command_.lisp>ldd>include>backquote.incl.lisp* *+#"6K2>@ELRVY`cjtv{ $-/9CLU[gkw~  !+define-command: In definition of argument # of Use of the key  requires that the key  also be specified. The keys  and  are mutually exclusive.The key  may only appear once.!define-command: In definition of . define-command: -$-undo-function-$-negative-function&numeric-argument (&reject)&numeric-argument (&ignore)&numeric-argument&numeric-function&negative-functionPrompt terminator must be NL or ESC.a string: %Numeric ranges may only be specified for &integer arguments.!&valid may only be specified for &symbol arguments.Unrecognized keyword: a value"Only one of &string, &symbol, and &integer may be used.The argument with  must be last.( may not appear with any other argument qualifiers.An & construct was expected, but not found.No name specified.Invalid numeric argument range :#&reject may not be used with other #&ignore may not be used with other &numeric-argument qualifiers.Unrecognized keyword following &numeric-argument: *The key &upper-bound may only appear once an integer*The key &lower-bound may only appear once after &numeric-argument.(Only one of &pass, &repeat, &ignore, or &reject may appear after &numeric-argument.+Malformed list following &numeric-argument. must be followed by or &eval." Unknown keyword following &eval: " &eval must be followed by a form or &code.-$-Unrecoginzed keyword: &documentation must be followed by a string.&undo-function: &undo-function must be followed $by a function name, &pass, &reject, &ignore, or &code.$&negative-function must be followed by a function name or &code.Unknown keyword after &negative-function: &a function nameFunction name must be a symbol.vgjmoruw{~ $)/1579=@DGKNRTWZahknrux{  explodenmaknambaseibase*nopointarg stringlengthlistifyapplyerrordc-error-conflictdc-error-requiredlengthquotecompileprogn documentationed-argument-listed-numeric-rangeed-undo-functioned-negative-functioned-numeric-functioned-cleanup-functioned-epilogue-functioned-prologue-functionnobreak-functionsconssetqeditor-commandputprop&passESCNLstringpdc-error-argumentdc-error-argument-duplicate-keydcpa-parse-prompt atom&default&prompt&integer&symbol&string&comp &completion &completions &rest-as-list&rest-as-stringdcpa-single-argument&ub &upper-boundfixp&lb &lower-bound&repeat dc-decimalcatenate make_atomfuncall dcev-errorevaldefun&evaldc-error-duplicate-keydc-parse-encoded-valuenconcsubstr samepnamepdc-errormemberequaldc-parse-numeric-arg-infodc-parse-argumentsnreversedc-build-result-list&doc&documentation&a&args &arguments &no-break&na&numarg&numeric-argument&reject&ignore&inverse&undo&undo-function &end-code&code&nf&negative-function&numeric-function&cleanup &epiloguesymbolp &prologueencoded-valuesdefine-command MACROdefpropdefcom-synonymdefine-command-synonymmacrolambdaformletsynonymcadrcommandcaddrlistlist*exprdefcomdefine-commandiZY\Y]Y^Y_Y`YaYbYcYdYehYjjj[YZYYYhYY Y    !#$%'()Z&*X > XgKJIHGFEDjCBA@?>=Y<;:9876543210/.-,+*)(~'&%}|$#"!{zyxwv utsrqponmlkigef[XWV UTSRQ PONML(n^N>. ^N>.N^N>.NN>*&"~qVWopZI @ B]obj_map Q