(FILECREATED " 5-Aug-86 10:25:25" {ROSEBOWL}<FEUERMAN>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}<FEUERMAN>LISP>NCSERVER>NCSERVERDEBUG.;1)


(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}<FEUERMAN>LISP>NCSERVER>NCSERVERDEBUG.TRANSCRIPT;1)

(RPAQQ NCSERVERDEBUG.PRINTP
 T)
(DEFINEQ

(NCSERVERDEBUG.PRINT

  [LAMBDA (FUNCTIONNAME)                                     (* Feuerman " 5-Aug-86 09:24")

    (
COND

      (NCSERVERDEBUG.PRINTP [
OR
 (
OPENP
 NCSERVERDEBUG.FILE)
				  (
SETQ
 NCSERVERDEBUG.FILE (
OPENFILE
 NCSERVERDEBUG.FILE
									 (
QUOTE
 BOTH]
			    (
SETFILEPTR
 NCSERVERDEBUG.FILE -1)
			    (
PRINT
 FUNCTIONNAME NCSERVERDEBUG.FILE)
			    [for
 Arg in
 (
ARGLIST
 FUNCTIONNAME)
			       do
 (printout NCSERVERDEBUG.FILE .TAB 5 Arg .TAB 25 "= "
					      (
EVAL
 Arg)
					      T)
				    (
COND

				      ((type?
 UID (
EVAL
 Arg))
					(
COND

					  [(
EQ
 Arg (
QUOTE
 NOTEFILEUID))
					    (printout NCSERVERDEBUG.FILE .TAB 10
						      (fetch
 (NoteFile FullFileName)
							 of
 (
NC.NoteFileFromNoteFileUID

								(
EVAL
 Arg]
					  ((
EQ
 Arg (
QUOTE
 NOTECARDUID))
					    (printout NCSERVERDEBUG.FILE .TAB 10
						      (
NC.FetchTitle
 (
NC.CardFromUID

									 (
EVAL
 Arg)
									 (
NC.NoteFileFromNoteFileUID

									   (
EVAL
 NOTEFILEUID]
			    (
CLOSEF
 NCSERVERDEBUG.FILE])

(NCSERVERDEBUG.TURNOFF

  [LAMBDA (COURIERSTREAM PROGRAM PROCEDURE)                  (* Feuerman " 5-Aug-86 10:15")

    (
SETQ
 NCSERVERDEBUG.PRINTP NIL)
    (
COURIER.RETURN
 COURIERSTREAM PROGRAM PROCEDURE (
QUOTE
 (OFF])

(NCSERVERDEBUG.TURNON

  [LAMBDA (COURIERSTREAM PROGRAM PROCEDURE)                  (* Feuerman " 5-Aug-86 10:16")

    (
SETQ
 NCSERVERDEBUG.PRINTP T)
    (
COURIER.RETURN
 COURIERSTREAM PROGRAM PROCEDURE (
QUOTE
 (ON])
)

(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)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1942 3550 (NCSERVERDEBUG.PRINT 1952 . 3076) (NCSERVERDEBUG.TURNOFF 3078 . 3314) (
NCSERVERDEBUG.TURNON 3316 . 3548)))))
STOP