;;; -*- Mode:LISP; Package:SERIAL; Base:10. -*-


(defresource serial-packet NIL
  :INITIAL-COPIES 1 :CONSTRUCTOR (make-modem-packet)
  :INITIALIZER (setf (modem-fill-pointer object) 0))

(defstruct (modem-packet :named-array-leader (:conc-name "MODEM-")
			 (:MAKE-array (:DIMENSIONS 128.)))
  (fill-pointer 0)
  (block 0)
  (length 128.))

(defvar *Last-Packet-Received* NIL)