(FILECREATED " 2-Sep-86 12:27:41" {QV}<NOTECARDS>1.3K>NEXT>FGHPATCH105.;1
 1432   

      changes to:  (VARS FGHPATCH105COMS))


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT FGHPATCH105COMS)

(RPAQQ FGHPATCH105COMS
 ((* * This stuff should be placed in NCUTILITIES)
			  (* * General queueing mechanism. Implemented initially to support the 
			     server.)
			  (FNS QUEUE.CREATE QUEUE.DEQUEUE QUEUE.ENQUEUE)))
(* * This stuff should be placed in NCUTILITIES)


(* * General queueing mechanism. Implemented initially to support the server.)


(DEFINEQ

(QUEUE.CREATE

  (LAMBDA NIL                                                (* Feuerman "24-Mar-86 14:20")


          (* * Creates and returns an instance of a new queue.)



    (
CONS
 NIL NIL)))

(QUEUE.DEQUEUE

  (LAMBDA (Q)                                                (* Feuerman "24-Mar-86 16:35")

    (
PROG1
 (
CAAR
 Q)
	     (
RPLACA
 Q (
CDAR
 Q))
	     (
OR
 (
CAR
 Q)
		   (
RPLACD
 Q NIL)))))

(QUEUE.ENQUEUE

  (LAMBDA (Q ITEM)                                           (* Feuerman "24-Mar-86 14:25")

    (
COND

      ((
CDR
 Q)
	(
RPLACD
 (
CDR
 Q)
		  (
CONS
 ITEM))
	(
RPLACD
 Q (
CDDR
 Q)))
      (T (
RPLACA
 Q (
CONS
 ITEM))
	 (
RPLACD
 Q (
CAR
 Q))))))
)
(PUTPROPS FGHPATCH105 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (599 1350 (QUEUE.CREATE 609 . 818) (QUEUE.DEQUEUE 820 . 1050) (QUEUE.ENQUEUE 1052 . 1348
)))))
STOP