sndfile* update now returns its object

mdedwards · Jun 22, 2024 · 289b2a2 · 289b2a2
1 parent 4cdc36b
commit 289b2a2
Show file tree

Hide file tree

Showing 4 changed files with 11 additions and 9 deletions.
diff --git a/src/reaper.lsp b/src/reaper.lsp
@@ -26,7 +26,7 @@
 ;;;
 ;;; Creation date:    January 21st 2021
 ;;;
-;;; $$ Last modified:  17:40:21 Tue Apr 16 2024 CEST
+;;; $$ Last modified:  15:40:59 Sat Jun 22 2024 CEST
 ;;;
 ;;; SVN ID: $Id: sclist.lsp 963 2010-04-08 20:58:32Z medward2 $
 ;;;
@@ -609,9 +609,8 @@
 ;;; shell to get its info). So here we just make a quick instance bypassing
 ;;; all that yummy sndfile stuff, primarly so that make-reaper-item can be
 ;;; replaced with this method for on-the-fly creation of objects that just need
-;;; to be written in above all reaper-play.
+;;; to be written in (above all) reaper-play.
 (defun make-reaper-item-fast (slots-list)
-  ;; (print slots-list)
   (let ((ri (make-instance 'reaper-item :init-update nil)))
     (loop for slot in slots-list by #'cddr
           and value in (rest slots-list) by #'cddr do

diff --git a/src/sndfile-ext.lsp b/src/sndfile-ext.lsp
@@ -22,7 +22,7 @@
 ;;;
 ;;; Creation date:    16th December 2012, Koh Mak, Thailand
 ;;;
-;;; $$ Last modified:  12:16:44 Thu Mar 21 2024 CET
+;;; $$ Last modified:  15:37:48 Sat Jun 22 2024 CEST
 ;;;
 ;;; SVN ID: $Id$
 ;;;
@@ -248,7 +248,8 @@
           (srate sfe) (first sf-info)
           ;; (num-frames sfe) (clm::sound-frames (path sfe))
           (num-frames sfe) (sixth sf-info)
-          (bytes sfe) (fifth sf-info))))
+          (bytes sfe) (fifth sf-info)))
+  sfe)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 

diff --git a/src/sndfile.lsp b/src/sndfile.lsp
@@ -19,7 +19,7 @@
 ;;;
 ;;; Creation date:    March 21st 2001
 ;;;
-;;; $$ Last modified:  13:45:04 Thu Apr 18 2024 CEST
+;;; $$ Last modified:  15:36:40 Sat Jun 22 2024 CEST
 ;;;
 ;;; ****
 ;;; Licence:          Copyright (c) 2010 Michael Edwards
@@ -378,7 +378,8 @@ T
                 end (snd-duration sf) sf)
           (setf (slot-value sf 'end) (snd-duration sf))
           (set-dur sf)))
-      (setf (data-consistent sf) t))))
+      (setf (data-consistent sf) t)))
+  sf)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 

diff --git a/src/vidfile.lsp b/src/vidfile.lsp
@@ -28,7 +28,7 @@
 ;;;
 ;;; Creation date:    19th March 2024, Heidhausen, Germany
 ;;;
-;;; $$ Last modified:  17:37:47 Tue Apr 16 2024 CEST
+;;; $$ Last modified:  15:50:21 Sat Jun 22 2024 CEST
 ;;;
 ;;; ****
 ;;; Licence:          Copyright (c) 2010 Michael Edwards
@@ -92,7 +92,8 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (defmethod update :after ((vf vidfile) &key ignore)
   (declare (ignore ignore))
-  (setf (has-video-codec vf) (video-file-p (path vf) nil nil)))
+  (setf (has-video-codec vf) (video-file-p (path vf) nil nil))
+  vf)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (defmethod print-object :before ((vf vidfile) stream)