(FILECREATED " 5-Aug-86 10:25:57" ("compiled on " {ROSEBOWL}LISP>NCSERVER>NCSERVERDEBUG.;3) "12-Nov-85 14:59:23" recompiled changes: NCSERVERDEBUG.PRINT NCSERVERDEBUG.TURNOFF NCSERVERDEBUG.TURNON in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED " 5-Aug-86 10:25:25" {ROSEBOWL}LISP>NCSERVER>NCSERVERDEBUG.;3 7397 changes to: (COURIERPROGRAMS NCServerDebug) (VARS NCSERVERDEBUGCOMS NCSERVERDEBUG.PRINTP NCSERVERDEBUG.FILE) (FNS NCSERVERDEBUG.TURNON NCSERVERDEBUG.TURNOFF NCSERVERDEBUG.PRINT) (ADVICE NCSERVER.NOTIFY.CARDACTIVATED NCSERVER.NOTIFY.WRITELOCKRELEASED NCSERVER.NOTIFY.WRITELOCKOBTAINED NCSERVER.NOTIFY.CARDPARTCHANGED NCSERVER.NOTIFY.CARDDELETED NCSERVER.NOTIFY.CARDCREATED NCSERVER.GETCARDINFO NCSERVER.CANCELCARDPARTSUBSCRIPTION NCSERVER.RELEASEWRITELOCK NCSERVER.PUTCARDPART NCSERVER.OBTAINWRITELOCK NCSERVER.GETCARDPART NCSERVER.DELETECARD NCSERVER.CREATECARD NCSERVER.LISTCLIENTS NCSERVER.LISTUIDS NCSERVER.CANCELNOTEFILESUBSCRIPTION NCSERVER.SUBSCRIBETONOTEFILE NCSERVER.DELETENOTEFILE NCSERVER.CREATENOTEFILE NCSERVER.LISTNOTEFILES) previous date: " 5-Aug-86 09:39:27" {ROSEBOWL}LISP>NCSERVER>NCSERVERDEBUG.;1) NCSERVERDEBUG.PRINT D1 (P 0 Arg I 0 FUNCTIONNAME F 1 NCSERVERDEBUG.FILE F 2 NCSERVERDEBUG.PRINTP F 3 NOTEFILEUID) ·R´‚±±Q ©Qg c¿Qmÿ @Q @ ±…dlhQ ¿HQ ¿lhQ ¿oQ ¿H Q ¿Q ¿H `ð²EHdgð²¿l hQ ¿H É°!gð² l hQ ¿H S Q ¿µ‚±ÿzQ (264Q CLOSEF 246Q PRIN1 242Q NC.FetchTitle 237Q NC.CardFromUID 234Q NC.NoteFileFromNoteFileUID 231Q EVAL 225Q EVAL 220Q TAB 174Q NC.NoteFileFromNoteFileUID 171Q EVAL 164Q TAB 135Q EVAL 130Q TERPRI 123Q PRIN1 117Q EVAL 112Q PRIN1 101Q TAB 71Q PRIN1 63Q TAB 44Q ARGLIST 40Q PRINT 33Q SETFILEPTR 22Q OPENFILE 12Q OPENP) (206Q NOTECARDUID 177Q NoteFile 151Q NOTEFILEUID 141Q UIDTYPE# 17Q BOTH) ( 106Q "= ") NCSERVERDEBUG.TURNOFF D1 (I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM F 0 NCSERVERDEBUG.PRINTP) hc@ABo (14Q COURIER.RETURN) NIL ( 11Q (OFF)) NCSERVERDEBUG.TURNON D1 (I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM F 0 NCSERVERDEBUG.PRINTP) ic@ABo (14Q COURIER.RETURN) NIL ( 11Q (ON)) (PRETTYCOMPRINT NCSERVERDEBUGCOMS) (RPAQQ NCSERVERDEBUGCOMS ((VARS NCSERVERDEBUG.FILE NCSERVERDEBUG.PRINTP) (FNS NCSERVERDEBUG.PRINT NCSERVERDEBUG.TURNOFF NCSERVERDEBUG.TURNON) (COURIERPROGRAMS NCServerDebug) (ADVISE NCSERVER.CANCELCARDPARTSUBSCRIPTION NCSERVER.CANCELNOTEFILESUBSCRIPTION NCSERVER.CREATECARD NCSERVER.CREATENOTEFILE NCSERVER.DELETECARD NCSERVER.DELETENOTEFILE NCSERVER.GETCARDINFO NCSERVER.GETCARDPART NCSERVER.LISTCLIENTS NCSERVER.LISTNOTEFILES NCSERVER.LISTUIDS NCSERVER.NOTIFY.CARDACTIVATED NCSERVER.NOTIFY.CARDCREATED NCSERVER.NOTIFY.CARDDELETED NCSERVER.NOTIFY.CARDPARTCHANGED NCSERVER.NOTIFY.WRITELOCKOBTAINED NCSERVER.NOTIFY.WRITELOCKRELEASED NCSERVER.OBTAINWRITELOCK NCSERVER.PUTCARDPART NCSERVER.RELEASEWRITELOCK NCSERVER.SUBSCRIBETONOTEFILE)) ) (RPAQQ NCSERVERDEBUG.FILE {ROSEBOWL}LISP>NCSERVER>NCSERVERDEBUG.TRANSCRIPT;1) (RPAQQ NCSERVERDEBUG.PRINTP T) (COURIERPROGRAM NCServerDebug (4747 1) TYPES ((SWITCH (ENUMERATION (OFF 0) (ON 1)))) PROCEDURES (( TurnOff 0 NIL RETURNS (SWITCH) REPORTS NIL IMPLEMENTEDBY NCSERVERDEBUG.TURNOFF) (TurnOn 1 NIL RETURNS (SWITCH) REPORTS NIL IMPLEMENTEDBY NCSERVERDEBUG.TURNON))) (PUTPROPS NCSERVER.CANCELCARDPARTSUBSCRIPTION READVICE (NIL (BEFORE NIL (NCSERVERDEBUG.PRINT (QUOTE NCSERVER.CANCELCARDPARTSUBSCRIPTION))))) (PUTPROPS NCSERVER.CANCELNOTEFILESUBSCRIPTION READVICE (NIL (BEFORE NIL (NCSERVERDEBUG.PRINT (QUOTE NCSERVER.CANCELNOTEFILESUBSCRIPTION))))) (PUTPROPS NCSERVER.CREATECARD READVICE (NIL (BEFORE NIL (NCSERVERDEBUG.PRINT (QUOTE NCSERVER.CREATECARD))))) (PUTPROPS NCSERVER.CREATENOTEFILE READVICE (NIL (BEFORE NIL (NCSERVERDEBUG.PRINT (QUOTE NCSERVER.CREATENOTEFILE))))) (PUTPROPS NCSERVER.DELETECARD READVICE (NIL (BEFORE NIL (NCSERVERDEBUG.PRINT (QUOTE NCSERVER.DELETECARD))))) (PUTPROPS NCSERVER.DELETENOTEFILE READVICE (NIL (BEFORE NIL (NCSERVERDEBUG.PRINT (QUOTE NCSERVER.DELETENOTEFILE))))) (PUTPROPS NCSERVER.GETCARDINFO READVICE (NIL (BEFORE NIL (NCSERVERDEBUG.PRINT (QUOTE NCSERVER.GETCARDINFO))))) (PUTPROPS NCSERVER.GETCARDPART READVICE (NIL (BEFORE NIL (NCSERVERDEBUG.PRINT (QUOTE NCSERVER.GETCARDPART))))) (PUTPROPS NCSERVER.LISTCLIENTS READVICE (NIL (BEFORE NIL (NCSERVERDEBUG.PRINT (QUOTE NCSERVER.LISTCLIENTS))))) (PUTPROPS NCSERVER.LISTNOTEFILES READVICE (NIL (BEFORE NIL (NCSERVERDEBUG.PRINT (QUOTE NCSERVER.LISTNOTEFILES))))) (PUTPROPS NCSERVER.LISTUIDS READVICE (NIL (BEFORE NIL (NCSERVERDEBUG.PRINT (QUOTE NCSERVER.LISTUIDS))) )) (PUTPROPS NCSERVER.NOTIFY.CARDACTIVATED READVICE (NIL (BEFORE NIL (NCSERVERDEBUG.PRINT (QUOTE NCSERVER.NOTIFY.CARDACTIVATED))))) (PUTPROPS NCSERVER.NOTIFY.CARDCREATED READVICE (NIL (BEFORE NIL (NCSERVERDEBUG.PRINT (QUOTE NCSERVER.NOTIFY.CARDCREATED))))) (PUTPROPS NCSERVER.NOTIFY.CARDDELETED READVICE (NIL (BEFORE NIL (NCSERVERDEBUG.PRINT (QUOTE NCSERVER.NOTIFY.CARDDELETED))))) (PUTPROPS NCSERVER.NOTIFY.CARDPARTCHANGED READVICE (NIL (BEFORE NIL (NCSERVERDEBUG.PRINT (QUOTE NCSERVER.NOTIFY.CARDPARTCHANGED))))) (PUTPROPS NCSERVER.NOTIFY.WRITELOCKOBTAINED READVICE (NIL (BEFORE NIL (NCSERVERDEBUG.PRINT (QUOTE NCSERVER.NOTIFY.WRITELOCKOBTAINED))))) (PUTPROPS NCSERVER.NOTIFY.WRITELOCKRELEASED READVICE (NIL (BEFORE NIL (NCSERVERDEBUG.PRINT (QUOTE NCSERVER.NOTIFY.WRITELOCKRELEASED))))) (PUTPROPS NCSERVER.OBTAINWRITELOCK READVICE (NIL (BEFORE NIL (NCSERVERDEBUG.PRINT (QUOTE NCSERVER.OBTAINWRITELOCK))))) (PUTPROPS NCSERVER.PUTCARDPART READVICE (NIL (BEFORE NIL (NCSERVERDEBUG.PRINT (QUOTE NCSERVER.PUTCARDPART))))) (PUTPROPS NCSERVER.RELEASEWRITELOCK READVICE (NIL (BEFORE NIL (NCSERVERDEBUG.PRINT (QUOTE NCSERVER.RELEASEWRITELOCK))))) (PUTPROPS NCSERVER.SUBSCRIBETONOTEFILE READVICE (NIL (BEFORE NIL (NCSERVERDEBUG.PRINT (QUOTE NCSERVER.SUBSCRIBETONOTEFILE))))) (READVISE NCSERVER.CANCELCARDPARTSUBSCRIPTION NCSERVER.CANCELNOTEFILESUBSCRIPTION NCSERVER.CREATECARD NCSERVER.CREATENOTEFILE NCSERVER.DELETECARD NCSERVER.DELETENOTEFILE NCSERVER.GETCARDINFO NCSERVER.GETCARDPART NCSERVER.LISTCLIENTS NCSERVER.LISTNOTEFILES NCSERVER.LISTUIDS NCSERVER.NOTIFY.CARDACTIVATED NCSERVER.NOTIFY.CARDCREATED NCSERVER.NOTIFY.CARDDELETED NCSERVER.NOTIFY.CARDPARTCHANGED NCSERVER.NOTIFY.WRITELOCKOBTAINED NCSERVER.NOTIFY.WRITELOCKRELEASED NCSERVER.OBTAINWRITELOCK NCSERVER.PUTCARDPART NCSERVER.RELEASEWRITELOCK NCSERVER.SUBSCRIBETONOTEFILE) NIL