Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:Leap:15.2:Update
pgloader.16029
82397a78.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File 82397a78.patch of Package pgloader.16029
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
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor