File 82397a78.patch of Package pgloader

From 82397a78173e01defa53463468a7cf892d979377 Mon Sep 17 00:00:00 2001
From: Cyrus Harmon <ch-github@bobobeach.com>
Date: Mon, 28 Sep 2020 21:17:53 -0700
Subject: [PATCH] add (or ... null) to read-dispatch-table-entry field types

---
 parser.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/parser.lisp b/parser.lisp
index 6763791..e89e0ce 100644
--- a/parser.lisp
+++ b/parser.lisp
@@ -31,12 +31,12 @@ See: csv-reader "))
     (ignore-errors (format s "~S" (string (buffer o))))))
 
 (defclass read-dispatch-table-entry ()
-  ((delimiter :type (vector (or boolean character))
+  ((delimiter :type (or (vector (or boolean character)) null)
               :accessor delimiter :initarg :delimiter :initform nil)
    (didx :type fixnum :initform -1 :accessor didx :initarg :didx)
    (dlen :type fixnum :initform 0 :accessor dlen :initarg :dlen)
    (dlen-1 :type fixnum :initform -1 :accessor dlen-1 :initarg :dlen-1)
-   (dispatch :type function :initform nil :accessor dispatch  :initarg :dispatch)
+   (dispatch :type (or function null) :initform nil :accessor dispatch  :initarg :dispatch)
    )
   (:documentation "When a certain delimiter is matched it will call a certain function
     T matches anything