changeset 501: |
dc4dfb4d71d0 |
parent 500: |
b19b1baf8699 |
child 502: |
a2fe095379f9 |
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Tue, 02 Jul 2024 17:30:44 -0400 |
files: |
lisp/ffi/gstreamer/element-factory.lisp lisp/lib/krypt/err.lisp |
description: |
bug fixes |
1.1--- a/lisp/ffi/gstreamer/element-factory.lisp Tue Jul 02 17:23:09 2024 -0400
1.2+++ b/lisp/ffi/gstreamer/element-factory.lisp Tue Jul 02 17:30:44 2024 -0400
1.3@@ -5,8 +5,9 @@
1.4 ;;; Code:
1.5 (in-package :gstreamer)
1.6
1.7-(define-opaque gst-element-factory)
1.8-(define-alien-type gst-element-factory-t (struct nil))
1.9+(eval-always
1.10+ (define-opaque gst-element-factory))
1.11+(define-alien-type gst-element-factory-t (struct gst-element-factory))
1.12
1.13 (define-alien-routine gst-element-factory-get-type gtype)
1.14 (define-alien-routine gst-element-factory-find (* gst-element-factory) (name c-string))
2.1--- a/lisp/lib/krypt/err.lisp Tue Jul 02 17:23:09 2024 -0400
2.2+++ b/lisp/lib/krypt/err.lisp Tue Jul 02 17:30:44 2024 -0400
2.3@@ -9,7 +9,7 @@
2.4 ()
2.5 (:documentation "Error signaled by the KRYPT system."))
2.6
2.7-(deferror krypt-simple-error (krypt-error simple-error) () (:auto t))
2.8+(deferror krypt-simple-error (krypt-error simple-error) ())
2.9
2.10 (defun krypt-simple-error (ctrl &rest args)
2.11 (error 'simple-sql-error :format-control ctrl :format-arguments args))