Skip to content

Commit

Permalink
scrap unneeded declare
Browse files Browse the repository at this point in the history
  • Loading branch information
elderica committed Feb 17, 2024
1 parent e36f53e commit cb6265d
Showing 1 changed file with 0 additions and 3 deletions.
3 changes: 0 additions & 3 deletions src/core.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -24,16 +24,13 @@
(defparameter *enable-backpropagation* t)

(defun full-like (array fill-value)
(declare (optimize (safety 3) (debug 3)))
(let ((dims (array-dimensions array)))
(make-array dims :initial-element fill-value)))

(defun zeros-like (array)
(declare (optimize (safety 3) (debug 3)))
(full-like array 0))

(defun ones-like (array)
(declare (optimize (safety 3) (debug 3)))
(full-like array 1))

(defgeneric call (function &rest inputs))
Expand Down

0 comments on commit cb6265d

Please sign in to comment.