mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

Reduce extra object creations

Browse source
This commit is contained in:
David Botton 2020-12-29 22:31:26 -05:00
parent 26822cb46a
commit 6b67bfbcc1
3 changed files with 59 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

15
clog-body.lisp
View file

@ -34,13 +34,14 @@
(defun make-clog-body (connection-id)
"Construct a new clog-body object."
(make-instance
'clog-body
:connection-id connection-id :html-id 0
:window (make-clog-window connection-id)
:html-document (make-clog-document connection-id)
:location (make-clog-location connection-id)
:navigator (make-clog-navigator connection-id)))
(let ((body (make-instance
'clog-body
:connection-id connection-id :html-id 0
:window (make-clog-window connection-id)
:html-document (make-clog-document connection-id)
:location (make-clog-location connection-id)
:navigator (make-clog-navigator connection-id))))
(set-body (html-document body) body)))
;;;;;;;;;;;;
;; window ;;