maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(3p/lisp/mime4cl): build using buildLisp

Browse source 
The following changes are required to make mime4cl build:

* file-position doesn't like to be called with NIL as the position
  argument, so we have to make sure to not do that in
  stream-file-position. My workaround is a bit clunky, but works.

* Tests discover the sample file via relative path resolution. This
  doesn't work when they are imported into the nix store as individual
  files. Instead we make use of the fact that DEFVAR is a no-op if the
  variable is already defined and inject a file via the nix build that
  sets the relevant ones. For the path to sample1.msg, we need to create
  a new variable.

Change-Id: I74eeda7bf2c2a4f64cc2b90e72081513ec3285d5
Reviewed-on: https://cl.tvl.fyi/c/depot/+/3270
Tested-by: BuildkiteCI
Reviewed-by: grfn <grfn@gws.fyi>
This commit is contained in:
sterni 2021-08-02 15:15:39 +02:00
parent 901364869c
commit 8f6955176f
6 changed files with 69 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
third_party/lisp/mime4cl/streams.lisp vendored
View file

@ -1,6 +1,7 @@
;;; eds.lisp --- En/De-coding Streams
;;; Copyright (C) 2012 by Walter C. Pelissero
;;; Copyright (C) 2021 by the TVL Authors
;;; Author: Walter C. Pelissero <walter@pelissero.de>
;;; Project: mime4cl
@ -63,7 +64,8 @@
:initarg :dont-close)))
(defmethod stream-file-position ((stream coder-stream-mixin) &optional position)
(file-position (slot-value stream 'real-stream) position))
(apply #'file-position (remove nil (list (slot-value stream 'real-stream)
position))))
(defclass coder-input-stream-mixin (fundamental-binary-input-stream coder-stream-mixin)
())