Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

deftypeのoptional引数の初期値を明示的に指定

  • Loading branch information...
commit a081eff796d535d6f6d2754713370d819d96ef68 1 parent 3ef7013
Takeru Ohta authored
Showing with 4 additions and 4 deletions.
  1. +1 −1  common-utils.asd
  2. +3 −3 common-utils.lisp
2  common-utils.asd
View
@@ -1,6 +1,6 @@
(defsystem common-utils
:name "common-utils"
- :version "0.0.16"
+ :version "0.0.17"
:maintainer "Takeru Ohta"
:description "Common utilities"
6 common-utils.lisp
View
@@ -33,11 +33,11 @@
(in-package :common-utils)
(deftype octet () '(unsigned-byte 8))
-(deftype octets (&optional size)
+(deftype octets (&optional (size nil))
(if size
- `(vector octets ,size)
+ `(vector octet ,size)
'(vector octet)))
-(deftype simple-octets (&optional size)
+(deftype simple-octets (&optional (size nil))
(if size
`(simple-array octet (,size))
'(simple-array octet)))
Please sign in to comment.
Something went wrong with that request. Please try again.